1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
Кумир я не знаю, а что эту экзотика ещё преподают?
Он нигде, кроме школ, никогда не использовался.
Напишу только алгоритм.
1) Начало
2) Ввод исходного числа n.
3) n = n*n // возводим n в квадрат
4) n = 10*n // умножаем на 10. Теперь десятые доли стали единицами
5) n = [n] // оставляет целую часть, дробную отбрасываем
6) n = n - [n/10]*10 // вычисляем остаток от деления на 10, то есть цифру единиц.
7) Вывод n
8) Конец.
Объяснение. Допустим, мы ввели n = 1,4.
В 3 пункте мы умножили его само на себя, то есть возвели в квадрат. Стало n = 1,96.
Нам нужно получить цифру 9.
В 4 пункте мы умножили число на 10, получили n = 19,6.
В 5 пункте отбросили дробную часть, стало n = 19.
В 6 пункте самая трудная операция:
n = n - [n/10]*10 = 19 - [1,9]*10 = 19 - 1*10 = 9
Таким образом, мы получаем последнюю цифру любого целого числа, то есть остаток от деления на 10.
Вообще-то вместо этой сложной формулы во многих языках есть готовая функция Mod, дающая сразу остаток от деления. Пишется так:
n = n Mod 10
Из числа 19 сразу получаем 9.
Если такая функция есть в Кумире, используйте её. Если нет, тогда мою формулу.