Регистрация
алка689338
11.04.2020 11:39
Информатика
Есть ответ 👍

6.22) дано натуральное число . определить : а)количество цифр 3 в нем ; б)сумму его цифр, больших пяти; в) произведение его цифр, больших семи ; 6.26 ) дано натуральное число . а) определить его максимальную цифру . б)определить его минимальную цифру.

240
308
Посмотреть ответы 2

Ответы на вопрос:

Manber
Manber
4,6(87 оценок)
Var     a,k,s,m: integer;     p: real; begin write('введите натуральное число: '); readln(a); k: =0; s: =0; p: =1; while a> 0 do     begin     m: =a mod 10;     if m = 3 then k: =k+1     else           begin           if m > 5 then s: =s+m;           if m > 7 then p: =p*m;           end;     a: =a div 10;     end; writeln('k = ',k); writeln('s = ',s); writeln('p = ',p); end. var     a: integer;     max,min,m: byte; begin write('введите натуральное число: '); readln(a); max: =0; min: =10; while a> 0 do     begin     m: =a mod 10;     if m< min then min: =m;     if m> max then max: =m;     a: =a div 10;     end; writeln('min = ',min); writeln('max = ',max); end.
Ученик12090
Ученик12090
4,7(42 оценок)

Объяснение:вот перепиши это

но я не уверенна, что это правильно

обшарила всё, но удалось найти только это


На какие группы можно разделить инструменты по их функциональному предназначению? информатика!​

Популярно: Информатика