var n, k, i:integer;
begin
writeln('Введи число, которое нужно выводить');
read(k);
writeln('Укажи, сколько раз вывести число');
read(n);
for i:=1 to n do
write(k,' ');
end.
Является 56 ) есть ещё вопоосы ? мне нравится помогать !
Логическая задачка)
Смотри,в школе 20 учеников,мы можем предпологаем,что 15 человек написали на четверки! Два человека на 3 !!
а остальные на пятерки,! Удачи!!!
Рада была помочь)
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
28 байттов текста инфо ум