var s, k:integer; begin s:= 1; for k:= 1 to 7 do s:= s + k; writeln (s); end.
10-11 класс
|
Программа суммирует числа от 1 до 7, и после этого выводит получившееся значение на экран. Возможно там ошибка, должно быть s:=0. Если s:= 1; то программа суммирует числа от 1 до 7 +1
Другие вопросы из категории
Тронувшись с места, автомобиль каждую секунду увеличивает скорость на а км/ч.
На этом участке дороги существует ограничение V км/ч. Выяснить, через сколько полных секунд автомобиль превысит предельно допустимую скорость V?
Задача №2
Даны действительные числа а, b, c. Определить, можно ли построить треугольник со сторонами а, b, c или нет
Язык ПАСКАЛЬ =)
Дан радиус (R) окружности. Найти длину окружности (С) и площадь круга (S). С=2 ПR. S=ПR^2
Читайте также
for i:=1 to n do p:=p*i; factorial:=p; end;
while n>0 do begin k:=n mod 10; n:=n div 10; inc (a[k]); end; for j:=0 to 9 do if a[j].0 then writeln (j, a[j]); for j:=0 to 9 do if a[j]=0 then writeln(j); end.
while k < 25 do begin
s:=s+k;
k:=k+2;
end;
write(s);
end.
program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =',p);
end;
readln;
end.
s:=(s+3)*k;
write(s);
End.
P.S. Желательно подробно.