Ответы на вопрос:
program primer;
var i:byte;
S,x:word;
begin
S:=0;
writeln('Введите пять целых положительных чисел');
For i=1 to 5 do
begin
readln(x);
S:=S+x;
end;
writeln(S);
readln;
end.
var i:byte;
S,x:word;
begin
S:=0;
writeln('Введите пять целых положительных чисел');
For i=1 to 5 do
begin
readln(x);
S:=S+x;
end;
writeln(S);
readln;
end.
Популярно: Другие предметы
-
missrayn132426.01.2021 05:01
-
Maara12.12.2022 00:52
-
mshshjsbdhikbcg12.05.2020 08:11
-
b24855325.07.2021 17:11
-
nikav92com12.03.2023 23:19
-
WorkoutEdik22.04.2020 19:55
-
LG161210.04.2023 16:33
-
tatianadettcel06.09.2020 19:40
-
nikitkaandreev119.11.2020 01:49
-
ijezz11.10.2022 10:31