Program z1;
var i:integer;
begin
for i:=99999 downto 723 do
if i mod 723=0 then
write (i,' ');
end.
По способу восприятия информация не может быть: тестовой, визуальной, символьной, графической
Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
V=4/3*pi*r^3;
pi=acos(-1) вроде
а вообще
var
переменные
begin
assign....
assign...
read(r);
writeln(pi*4/3*r*r*r);
end.
а фото тебе просто формулу нужно в паскаль загнать
только что такое In я не знаю, я 7 класс)))
1 день - 10км
2 день - 10км+(10*10)/100=11км
10+11=21км, следовательно во второй день
суммарный пробег 114,358881 (что превышает 100) на 8 день