Задумайте любое трехзначное число. с калькулятора выполните следующую цепочкк преобразований: умножьте - id350074520211001 от klimov200293 01.10.2021 22:09

Question

Информатика: Задумайте любое трехзначное число. с калькулятора выполните следующую цепочкк преобразований: умножьте задуманное число на 3; к ответу прибавьте 9; к ответу прибавьте 15; из ответа вычтите 3; разделите ответ на 3; вычтите из ответа задуманное число. у вас должно получиться число 7. можно задумать другое число и повторить все действия с самого начала.результат будет тот же.можете ли вы объяснить? придумайте саою цепочку преобразований произвольного числа,такую,чтобы в результате всегда получалось

klimov200293 · Accepted Answer

Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.

В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.

MOGZ ответил