Program z1;
var s,k:longint;
Begin
Readln(s);
k:=trunc(sqrt(s));
Writeln(k);
End.
Ответ:
Уберите точку с запятой. перед else
Объяснение:
If <Операторы>
else <Операторы>
1 - нечетное b = 11 * 8 = 8 четное a = 1 b = 18 * 8 = 64 четное a = 2 b = 164 * 8 = 512 четное a = 3 b = 1512 * 8 = 4096 четное a = 3 b = 1, но это ненужно. Чичсо должно быть нечетным.Поэтому добавляем нечетное, но не более 8.Ответ 4097, 4099, 4111, 4113
Var n,a,b,i: Integer;
begin
writeln('Введите кол-во раз:');
readln(n);
for i:=0 to n do
begin
a:=random(1000);
b:=random(1000);
writeln('1 число: ',a,', 2 число:',b);
if a>b then writeln(a,'>',b);
if a<b then writeln(a,'<',b);
if a=b then writeln(a,'=',b);
end;
end.