Заполните целочисленный массив а размерностью 10 элементов по формуле 2 + 3m, где m — порядковый номер элемента массива, и выведите его на экран монитора в одну строку. сохраните программу и оправьте на проверку учителю.
270
404
Ответы на вопрос:
Var a: array[1..10] of integer; m: integer; begin for m: =1 to 10 do begin; a[m]: =2+3*m; writeln(a[m]); end; end.
Var a: array[10] of integer; i: integer; begin for i : = 1 to 10 do a[i] = 2 + 3*i; for i : = 1 to 9 do write(a[i], ' '); writeln(a[10]); end.
Прошу прощения за . программа рабочая. //pascalabc.net //naaman var a,b : real; begin write('введите а и в: '); readln(a,b); if (a=0) then writeln('корень отсутствует') else writeln('корень ', -b / a) end.
Популярно: Информатика
-
ПОРНОООСЕКС25.02.2023 16:08
-
Ксюшалебедева14.04.2021 11:42
-
bhawk201701.06.2023 16:10
-
D10200618.04.2022 14:05
-
sna200310.08.2020 07:19
-
angeladavletsi22.08.2021 18:29
-
sashasas1236525.02.2021 11:53
-
arrow3407.07.2022 22:56
-
rortat3203.11.2021 12:23
-
ОвчинниковДанил18.05.2021 13:50