Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с 1-ой. Пример 12341
5-9 класс
|
2
3
4
procedure print(a: integer);
var
i: integer;
s: string;
begin
str(a, s);
for i := 1 to length(s) do
writeln(s[i]);
end;
Другие вопросы из категории
данные(рисунки,тексты) (8 букв)
7.Обязательная часть програмного обеспечения-..... система (12 букв)
9.Информация,хранящаяся в долговременной памяти как единое целое и обазначенная именем.(4 буквы)
ПО ВЕРИКАЛИ:
1.Другое название прикладной программы(10 букв)
минут необходимо на загрузку 28 мегабайт,если передача данных закончилась 10секунд, спуся 24:00
S:=24;
m:=3456;
while s>10 do begin
m:=m mod 10;
S:=s-m;
end;
S:=S+m;
write (m);
Читайте также
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
монитора результат
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива
буква «а» встречается в тексте чаще, чем буква «о», и «Нет» в обратном случае. Поменяйте местами k первых и k последних символов строки. Удвойте вхождение буквы в текст. Например, если пользователь ввёл текст «мама мыла раму» и выбрал для удвоения букву «м», то после работы программы должно быть выведено на экран сообщение «ммамма ммыла рамму» Проверьте написанный текст на правильность написания сочетаний «жи», «ши». Если слова написаны с ошибкой – исправьте их. Удалите в каждом слове предложения первую и последнюю букву.