Предмет: Информатика,
автор: school123452
Напишите программу для Паскаля АБС (старая версия)
Сумма от 1 до 5 Написать Сумма_пока
То есть вид программы Сумма_пока
While по-английски
APALoff:
Есть формула для таких сумму: n*(n+1)/2 = 5*(5+1)/2 = 15
Ответы
Автор ответа:
0
Var S,i:integer;
Begin
S:=0;
i:=1;
While i <= 5 do
Begin
S:=S+i;
i:=i+1
End;
WriteLn('S = ',S);
End.
Begin
S:=0;
i:=1;
While i <= 5 do
Begin
S:=S+i;
i:=i+1
End;
WriteLn('S = ',S);
End.
Похожие вопросы
Предмет: Химия,
автор: tomvitromanenko
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Аноним
Предмет: Українська література,
автор: nastya01012019