Запиши программу на языке Паскаль.
var
i,n:word;
begin
write('n=');
readln(n);
for i:=1 to n do begin write(i,' ');
end;
readln;
end.
На экране
n=4
1.1234
2.0
3.16
4.4
151
356
Ответы на вопрос:
ответ:var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 3 = 0 then s:=s+i;
writeln('s = ',s);
end.
Результат:
s = 1683
Объяснение:
Популярно: Информатика
-
DEM0KRAT11.02.2020 10:01
-
BekaBeka00108.10.2020 17:42
-
dasha197009.03.2020 22:36
-
asy2326.11.2020 18:34
-
tania7po04.02.2023 01:59
-
Qqertyi14.04.2021 02:56
-
AnnyKotuk24.05.2023 15:06
-
1Ростиславка30.06.2020 13:27
-
darikesa6918.02.2020 09:32
-
puhova36503.07.2021 21:51