program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.
Ответ дал: Гость
random это функция возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:
a: = random(101)-50; {числа от -50 до 50}
b: = random(101)-200; {от -100 до 100}
а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!
Ответ дал: Гость
var
s,s1: real;
k: integer;
begin
s: =10;
k: =1;
while s< 20 do
begin
s: =s*1.1;
k: =k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s: =10;
s1: =10;
k: =1;
while s< 200 do
begin
s: =s+s1*1.1;
s1: =s1*1.1;
k: =k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
Популярные вопросы