Пожалуйста помогите решить задачу на языке Pascal?

Artik2622 13 дек. 2020 г., 08:53:00

Const nm = 50 ; {максимальная длина массива}

var i, n, m : integer ; a, b, c : array[1.

Nm] of integer ;

begin Write('Введите количество элементов в массиве a : ') ; Readln(n) ; Write('Введите элементы массива a через пробел ') ; for i : = 1 to n do begin Read(a[i]) ; c[i] : = a[i] end ; Write('Введите количество элементов в массиве b : ') ; Readln(m) ; Write('Введите элементы массива b через пробел ') ; for i : = 1 to m do begin Read(b[i]) ; c[i + n] : = b[i] end ; Write('Результирующий массив ') ; for i : = 1 to m + n do Write(c[i] : 4)

end.

Тестовое решение :

Введите количество элементов в массиве a : 5

Введите элементы массива a через пробел 7 - 6 0 23 11

Введите количество элементов в массиве b : 4

Введите элементы массива b через пробел 13 0 - 14 8

Результирующий массив 7 - 6 0 23 11 13 0 - 14 8.

Ybkeu1981 23 авг. 2020 г., 22:20:21 | 5 - 9 классы

Задача по информатике в Pascal ABC?

Задача по информатике в Pascal ABC.

Krisan2003 14 июл. 2020 г., 09:40:22 | 10 - 11 классы

Помогите, пожалуйста?

Помогите, пожалуйста!

Очень надо.

Напишите на языке Pascal.

Авдотка 29 дек. 2020 г., 10:36:15 | 5 - 9 классы

МНОГО БАЛЛОВ?

МНОГО БАЛЛОВ!

Помогите решить задачу, задача по программированию (pascal abc)сборник златопольского задача 1.

44 даны стороны прямоугольника, найти его периметр и длину диагонали.

Maxorliov 22 апр. 2020 г., 20:47:12 | 10 - 11 классы

СРОЧНО?

СРОЧНО!

Помогите решить задачу в Pascal.

"С клавиатуры вводятся два слова.

Требуется найти множество гласных букв , которые входят в первое слово , но не входят во второе слово.

" Помогите срочно , пожалуйста, в PASCAL!

Adel23 2 авг. 2020 г., 12:39:02 | 5 - 9 классы

Решить по языку Pascal?

Решить по языку Pascal.

Второкласн 12 февр. 2020 г., 08:38:24 | 10 - 11 классы

Наиэлементарнейшая задача :Запишите формулу в языке программирования Pascal?

Наиэлементарнейшая задача :

Запишите формулу в языке программирования Pascal.

Эдуард1305 26 нояб. 2020 г., 18:31:22 | 10 - 11 классы

Здравствуйте?

Здравствуйте!

Помогите пожалуйста составить код для задачи ниже на Pascal ABC.

Желательно как можно скорее!

Stukanov 17 июл. 2020 г., 22:24:15 | 10 - 11 классы

Pascal ABC?

Pascal ABC.

Помогите, пожалуйста, решить задачу!

Нарисуйте окружность такой линией, ширина которой больше радиуса.

Обведите полученную фигуру по контуру.

Lera1234567890000 30 янв. 2020 г., 06:29:03 | 5 - 9 классы

Помогите, пожалуйста?

Помогите, пожалуйста!

На языке Pascal решить данное выражение.

Заранее спасибо!

Aleksejvuyulov8 25 окт. 2020 г., 17:03:58 | 5 - 9 классы

Решите пожалуйста задачу на языке pascal?

Решите пожалуйста задачу на языке pascal.