Составить программу в паскале. тестируется группа из n человек. каждый вводит 1,если изучает ,2-,3-французский,0-никакой. определить сколько человек в каждой языковой группе. с операторами for и case.

167

390

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

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

moiytrewq20005

Информатика

4,4(89 оценок)

varn,i,otv,l,m,h,k: integer; beginwriteln ('сколько человек в группе'); read (n); for i: =1 to n dobeginwriteln ('какой язык ты изучаешь: 1-,2-нем,3-франц,0-никакой'); read (otv); case otv of0: l: =l+1; 1: h: =h+1; 2: k: =k+1; 3: m: =m+1; end; end; writeln (' язык изучает',h,'человек'); writeln (' язык изучает',k,'человек'); writeln ('французский язык изучает',m,'человек'); writeln (l,'человек не изучает никакой язык'); end.

mokajuma77

Информатика

4,8(99 оценок)

Обратим внимание, что при возведении натурального числа a в натуральную степень n последняя цифра результата определяется, как значение последней цифры d числа a, возведенного в степень n поскольку операция возведения в степень n сводится к умножению n раз числа самого на себя, то получая при очередном умножении многоразрядное число, мы можем снова принимать в расчет только его младшую цифру. это позволяет построить цикл на n умножений, каждый раз получая младшую цифру при операции mod. var a: longint; n,d,i,p: integer; begin write('введите натуральное число a: '); read(a); write('введите натуральную степень n: '); read(n); a: =a mod 10; p: =a; for i: =2 to n do begin a: =a*p; a: =a mod 10 end; writeln('последняя цифра равна ',a) end. тестовое решение: введите натуральное число a: 154 введите натуральную степень n: 9 последняя цифра равна 4