Ответы на вопрос:
var a: integer;
begin
writeln('введите кол-во метров: ');
read(a);
writeln('кол-во полных километров: ', a div 1000);
end.
const n = 10;
var a: array[1..n] of integer;
i: integer;
begin
for i: =1 to n do readln(a[i]);
writeln;
for i: =1 to n do
if a[i] mod 10 = 0 then writeln(i);
end.
Популярно: Информатика
-
kari201818.05.2021 17:27
-
Sofiaminkina0604.09.2020 10:31
-
mariabrin2720.12.2022 17:32
-
sanek48rus109.05.2022 11:36
-
misszhilinskay14.08.2021 18:42
-
belogrud9822.06.2020 09:59
-
iragafieva09.02.2022 13:04
-
098712345653027.07.2021 08:32
-
medinaofficial13.02.2021 12:40
-
Arse1234501.10.2020 20:24