1. дано три числа. вычислить сколько раз встречается среди них число 5. 2. даны два числа. если больше первое число, то заменить его на сумму этих чисел. если больше второе, то заменить его полусумму этих чисел. 3. даны четыре числа. найти наименьшее число из данных. 4. постороить трассировочную таблицу а: =4; с: =-3; у: =2; if ay then a: =a+10 else c: =c*10; y: =y*20;

Chvrv Chvrv    3   19.09.2019 02:30    0

Ответы
вевпончд вевпончд  26.08.2020 23:15
Var a, b, c, d:integer;beginreadln (a, b, c);while a>0 dobeginif a mod 10=5 then d:=d+1;a:=a div 10;end;while b>0 dobeginif b mod 10=5 then d:=d+1;b:=b div 10;end;while c>0 dobeginif c mod 10=5 then d:=d+1;c:=c div 10;end;writeln (d);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика