Во входном файле даны два целых числа. Определите их последние цифры и поместите их в выходной файл. Нужно

127

215

Посмотреть ответы 1

Ответы на вопрос:

aska311203

Информатика

4,4(6 оценок)

Var a: array [1..1000]of integer; i,n: integer; begin write('размер массива n = '); readln(n); for i: = 1 to n do begin write('a[',i,'] = '); readln(a[i]); end; writeln; for i: = 1 to n do if (i mod 2 = 0) and (a[i] mod 2 = 0) then write(a[i], ' '); end.