Решить №51 по информатике 5 класс рабочая тетрадь босова л.: сегодня у пети и коли новая игра: коля - id168926020221004 от olga170103 04.10.2022 00:13

Question

Информатика: Решить №51 по информатике 5 класс рабочая тетрадь босова л.: сегодня у пети и коли новая игра: коля задумывает правило преобразования числовой информации,а петя должен отгадать это правило. 1 - 1; 2 - 2; 3 - 0; 4 - 1; 20 - 2; 21 - 0. 1 - 0; 2 - 0; 3 - 1; 4 - 1; 20 - 6; 21 - 7.

olga170103 · Accepted Answer

1)uses crt; var x,a,b,c,i: integer; begin cls; write( введите число: ); readln(x); a: = x div 100; b: = (x - a*100) div 10; c: = (x - a*100 - b*10); if (a=b) or (a=c) or (b=c) then writeln( есть одинаковые цифры ) else writeln( одинаковых цифр нет ); end.2)uses crt; var x: real; begin cls; write( сумма покупки: ); readln(x); if x 1000 then x: =x-(x*0.1); writeln( стоимость с учётом возможной скидки ,x); end....

MOGZ ответил