1. Кірістіру (Вставка) мәзірінде қандай команда жоқ А) Фигуры B) Ауысулар(Переходы) D) Кесте 2. Сурет - id1211278420220628 от мангл63 28.06.2022 19:27

Question

Информатика: 1. Кірістіру (Вставка) мәзірінде қандай команда жоқ А) Фигуры B) Ауысулар(Переходы) D) Кесте 2. Сурет (Рисунок) командасы не үшін керек А) бумалардан сурет алып қою үшін B) бумалардан суретті көшіру үшін D) бумаларда сурет салу үшін ответь на во по информатике

мангл63 · Accepted Answer

Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.

Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;
s:string;
begin
randomize;
writeln('взять ли числа случайными? ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.

MOGZ ответил