1. дано три числа. вычислить сколько раз встречается - вопрос №8737129152 от kolody71p0aje8 06.02.2023 01:47

Question

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

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