var i: integer;
begin
for i:=100 to 200 do
if i mod 3 = 0 then writeln(i);
end.
Readln(n);
If (n>0)
write (n*n);
else
weite(0);
Видимо, 0 нельзя вводить?
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
150000 по моему.
Потому-что с марта до декабря 10 месяцев м поэтому 500000 умнажаем на 3 делим на 10 дробна
Степень числа.
Например, 1*10^2+4*10^1+3*10^0+5*10^-1
будет записана как 1*
+4*
+3*