ОБЪЯСНИТЕ как делать Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
Алгоритмический язык
s = 0 п=12
FOR i = 1 ТО 10
s= s+n-i
NEXTi
PRINTS
END
Бейсик
var s, n, i: integer;
begin
s:=0; n:=12;
for i:=l to 10 do
s:=s+n-i;
write (s);
end.
Паскаль
алг
нач
цел s, n, i
s:=0,
n:=12,
нп для i от 1 до 10
n:= s+n-i
кц
вывод n
кон
Алгоритмический язык
s = 0 п=12
FOR i = 1 ТО 10
s= s+n-i
NEXTi
PRINTS
END
Бейсик
var s, n, i: integer;
begin
s:=0; n:=12;
for i:=l to 10 do
s:=s+n-i;
write (s);
end.
Паскаль
алг
нач
цел s, n, i
s:=0,
n:=12,
нп для i от 1 до 10
n:= s+n-i
кц
вывод n
кон
More Questions From This User See All