1. дано три числа. вычислить сколько раз встречается - вопрос №8737129152 от Meowwwwwwwwwwwwwwwww 26.08.2022 02:31

Question

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

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