1. дано три числа. вычислить сколько раз встречается - вопрос №1528736452 от julka181 26.01.2023 08:50

Question

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

julka181 · Answer

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....