Информатика 9 класс, программирование, Паскаль, чень надо. 3 Напишите процедуру, которая принимает один параметр - натуральное число N, и выводит на экран столбец из N символов "А". При запуске программы N нужно ввести с клавиатуры.
Пример:
2 А
А
5 А
А
А
А
А
4. Используя функцию нахождения минимального из двух чисел, напишите программу нахождения минимального числа из трех чисел.
Вводятся три целых числа. Необходимо вывести минимальное из них.
Входные данные:
653
Выходные данные:
3
Можно с правильным решением))
ЮлияYli
1
18.01.2021 21:59
0
Другие вопросы по теме Информатика
sleep13
29.12.2019 20:18
AннаКрутая
29.12.2019 18:27
илья1598
29.12.2019 18:41
floratv32
29.12.2019 18:44
violettasergeevna
29.12.2019 17:32
DIAAADA
29.12.2019 17:42
ppavlowich
29.12.2019 16:33
лол1628
29.12.2019 16:54
Validgon
29.12.2019 16:58
Популярные вопросы
- 1. Напишите вид неполного квадратного уравнения в котором b=0 ? ...
2 - III XPersuasionListen to the radio programme and choose thecorrect option....
2 - решить задачу по АПК.. 1. Гражданка Иванова купила в магазине холодильник...
3 - Задание 2 ( ). Назовите изменения , произошедшие в государстве Караханидов...
2 - для логического выражения нарисуйте соответствующую ему электронную схему...
1 - Точки A(2; 5) і B(7; 5) — вершини прямокутника ABCD. Модуль вектора BD→...
3 - Abc - равнобедренныйAd=dcУгол D =90°BD высота равная 6P=20Найти : AB, AD,...
1 - Серед запропонованих знайти рівні за модулем вектори: a→(-3; 5), b→(5; 1),...
3 - Напишите код к данной задаче в Visual Basic....
3 - Дано точку A(0; -3) і вектор x→(1;-2). Виберіть серед запропонованих такі...
2
3
program z3;
procedure S(n: integer);
var i:integer;
begin
for i:=1 to n do writeln('A')
end;
var n:integer;
begin
read(n);
S(n)
end.
4
program z4;
function m(a,b: integer):integer;
begin
if a>b then m:=b else m:=a
end;
var a,b,c:integer;
begin
read(a,b,c);
writeln(m(m(a,b),c))
end.
Объяснение:
4. Ввод целых данных через пробел