Ответ : день(5+6+15+30) самое наименьшее
Вот все проверенно!)
Надеюсь что у тебя такой версии скретч.
1:
--
program l;
var n:integer;
begin
for n:=1 to 10 do
writeln('Рота');
end.
--
program l;
var
n, i: integer;
begin
writeln('Введите n:');
readln(n);
for n := 0 to n do
begin
i := n * n;
end;
writeln(n,'в квадрате: ',i);
end.
--
3:
program l;
var i,n:integer;
begin
for n:=1 to 6 do
begin
i:=456*n;
Writeln(n,'фунт(-а) это ',i, 'грамм.');
end;
end.
Word Pad,Microsoft Word,блокнот.
Program n1;
Var x,y,z,a: real;
Begin
Writeln ('vvedite x,y,z');
Read (x,y,z);
a:=5*((2*x-z)/(3+y*y));
Writeln ('otvet: ', a:5:3);
End.