Var s,k integer; //обозначили переменные.Тип integer говорит что это целые числа.
Begin
s:=0; //Присваеваем s значение 0.Тоесть s у нас в начале программы ровно нулю.
for k:=3 to 8 do s:=(s+3)*k; //Тут k присваеваем значение 3.Поэтому, от 3 до 8 делаем " s:=(s+3)*k".Тоесть (8-3=5) 5 раз выполняем s:=(s+3)*k.
Пишу ход выполения программы:
s:=(0+3)*3=9 // тут значение s стало ровно 9.
s:=(9+3)*3=12*3=36 // тут значение s стало ровно 36. И так далее.
s:=(36+3)*3=39*3=39*3=117
s:=(117+3)*3=120*3=360
s:=(360+3)*3=363*3=1089
write(s); // выводим значение рассчитанной s.
End. // конец программы.
Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
Writeln('No')
else Writeln('Yes')
end.
<u>Пример</u>
35 717 405 225 0
No
Скорее всего нужно найти количество до n-нного числа, тогда:
var n: integer;
begin
readln(n);
writeln((n div 3) div 2);
end.
поставь пожалуйста как лучший ответ, к тому же решение довольно хитрое