tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вывести на экран в pascal abc
Вывести на экран в pascal abc с цикла (три разные ): 12345 1234 123 12 1 54321 4321 321 21 1 54321 5432 543 54 5
kazah5676446
1 21.07.2019 11:00
1
Ответы
daniilnv2
03.10.2020 09:33
Program n1;
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
writeln (a div 10);
a:=a div 10;
end;
end.
program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.
program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin
writeln(a div 10);
a:=a div 10;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
shiryaevkirill
13.07.2019 00:10
Begin d[i,j]: =0; for k: =1 to n do d[i,j]: =d[i,j]+ma[i,k]*b[k,j]; end; writeln; writeln( final matrix: ); for i: =1 to n do begin; writeln; for j: =1 to n do begin;...
Fomabarca
13.07.2019 00:10
Информационное сообщение объёмом 8 кбайта состоит из 4096 символов. каков информационный вес символа этого сообщения? сколько символов содержит алфавит, с которого записано...
orororoyowf77q
13.07.2019 00:10
Документ (без упаковки) можно передать по каналу связи с одного компьютера на другой за 1 минуту и 30 секунд. если предварительно запаковать документ архиватором,передать...
366023
17.11.2019 18:03
Переменная a объявлена и ее значение равно результату умножения 10.5 на 2 переменная b объявлена и ее значение равно сумме a и a / 3 переменная c объявлена и ее значение...
elyaminaewap06uze
17.11.2019 17:59
Нужно реферат 15 листьев по тему работа с массивами (ms excel)....
инна1382
17.11.2019 17:55
Пять примеров хранение , обработка и передача информации нужно заранее...
nazira15
23.05.2019 01:20
Не понимаю как делать: ( 1. сообщение из 50 символов было записано в 8 битной кодировке.после вставки в текстовый редактор сообщение было перекодировано в 16-битный...
evasyperandreev
11.06.2019 12:10
Алфавит некоторого языка состоит из 64 символов, за сколько секунд можно передать текст из 200 символов, если скорость передачи 50 байт/сек?...
Lacky12game
16.05.2019 15:12
Поставить слова чтобы получилось предложения ...
PaymLaim
16.05.2019 15:12
Отметь только те слова в которых звуки стоят в следующем порядке мягкий согласный ударный гласный твёрдый согласный мягкий согласный безударный гласный булки чашки сетка...
Популярные вопросы
ЗАДАНИЕ 1. 2. 3. 4. ВЫПОЛНИТЕ...
2
Составьте краткий рассказ о Жанне Д, Арк (до пяти предложений)...
1
16 Ақтөбе менен ҚорғаншаАсанқайғы бабаныңҚызыл тастан үй салдырып,Он...
2
Изучи гидрограф рек. Сопоставь гидрографы по типу питания. А. смешанныйВ....
3
2) Значение произведения (-1/9*65)*9 равно...
2
Пож ответьте на тесты вот так примерно 1)б и тд...
3
Шортанбай Қанайұлының Зар заман өлеңі мен Қазтуғанның Қонысымен қоштасуы...
2
Какая функция у видоизменённого побега — корневища?...
2
из каждой группы слов выпиши слово которое не является в данном ряду...
3
Урожай этого года будет больше пред..дущего. Охотник с трудом от..скал...
3
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
writeln (a div 10);
a:=a div 10;
end;
end.
program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.
program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin
writeln(a div 10);
a:=a div 10;
end;
end.