Задача тема "Ветвление"
1)Даны два числа.Найти минимальное число.
2)Даны три числа.Найти минимальное число.
3)Задано натуральное число а.Является ли оно четным?
4)Задано натуральное число а.Является ли оно кратным ?

293

466

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

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

Никуля111111111

Информатика

4,6(83 оценок)

//pascal abc.net v3.1 сборка 1172 var ar: array of integer; n, k2, k3, k4, k5, i: integer; r: real; begin write('сколько учеников? '); readln(n); setlength(ar, n); writeln('введите оценки: '); for i : = 0 to n - 1 do begin readln(ar[i]); case ar[i] of 2: inc(k2); 3: inc(k3); 4: inc(k4); 5: inc(k5); else writeln('не оценка'); exit; end; end; writeln('2: ', k2); writeln('3: ', k3); writeln('4: ', k4); writeln('5: ', k5); write('успеваемость=', (k3 + k4 + k5) / n * 100: 0: 1); end. пример ввода: сколько учеников? 6 введите оценки: 2 2 3 4 5 5 пример вывода: 2: 2 3: 1 4: 1 5: 2 успеваемость=66.7