Автор Лилька Минни задал вопрос в разделе Другие языки и технологии
Паскаль 1)Вывести числа от 1 до 20 2) От 20 до 1 и получил лучший ответ
Ответ от Debero[гуру]
Program schet;
Var i : integer;
Begin
Writeln (‘Числа от 1 до 20’)
For i:= 1 to 20 do
Begin
Write (i, ‘ ‘);
End;
Writeln (‘Числа от 20 до 1’)
For i:= 20 downto 1 do
Begin
Write (i, ‘ ‘);
End;
Readln();
End.
Источник: писал без компиллятора, могут быть ошибки
Ответ от Арсен Арутюнян[гуру]
for i:=1 to 40 do begin if(i <= 20) write(i,' ') else begin writeln; write(40 - i,' '); end; end;
for i:=1 to 40 do begin if(i <= 20) write(i,' ') else begin writeln; write(40 - i,' '); end; end;
Ответ от Metotron[гуру]
Два цикла сделай. В чём сложность? А можно я на яваскрипте сделаю? for (var str='',n=-19; n < 20; str += 20-Math.abs(n++) + ' '); alert(str.replace('20', '20\n20')); На перле было бы ещё забавнее, там вроде как можно диап
Два цикла сделай. В чём сложность? А можно я на яваскрипте сделаю? for (var str='',n=-19; n < 20; str += 20-Math.abs(n++) + ' '); alert(str.replace('20', '20\n20')); На перле было бы ещё забавнее, там вроде как можно диап
Ответ от Krab Bark[гуру]
var i:integer; begin for i:=1 to 20 do write(i:3); writeln; for i:=20 downto 1 do write(i:3); writeln; readln end.
var i:integer; begin for i:=1 to 20 do write(i:3); writeln; for i:=20 downto 1 do write(i:3); writeln; readln end.
Ответ от Andrey 212121[новичек]
используй операторы цикла, в крайнем случае сделай по колхозном прописав каждое число!!!!
используй операторы цикла, в крайнем случае сделай по колхозном прописав каждое число!!!!
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Паскаль 1)Вывести числа от 1 до 20 2) От 20 до 1
спросили в Другое Цифры
Напишите римскими цифрами цифры от 1 до 20 ну тость I, II, III V IV
Цифра 1 в римских числах обозначается так: I
Цифра 2 в римских числах обозначается так: II
Напишите римскими цифрами цифры от 1 до 20 ну тость I, II, III V IV
Цифра 1 в римских числах обозначается так: I
Цифра 2 в римских числах обозначается так: II
помогите напишите как произносится по английски числа от 1 до 20 и от 10 20 30...100
one - ван
two - ту
three - сри
four - фо
five - файв
six - сикс
seven
подробнее...
спросили в От 1 до 10 XXV век
XIX - какой это век? Путаюсь в римских цифрах. Кому не сложно напишите от 1 до 22, на римских цифрвх
Вот так будет:
1 - | ; 2-- ||; 3--||| ; 4 --|V ; 5 -- V ; 6 -- V| ; 7 -- V|| ; 8 --V|||
подробнее...
XIX - какой это век? Путаюсь в римских цифрах. Кому не сложно напишите от 1 до 22, на римских цифрвх
Вот так будет:
1 - | ; 2-- ||; 3--||| ; 4 --|V ; 5 -- V ; 6 -- V| ; 7 -- V|| ; 8 --V|||
подробнее...
спросили в Агава
Каков принцып расположения чисел на мишени Дартс?
Дартс — игра, или, скорее, ряд связанных игр, в которых игроки метают короткие стрелы (дротики) в
подробнее...
Каков принцып расположения чисел на мишени Дартс?
Дартс — игра, или, скорее, ряд связанных игр, в которых игроки метают короткие стрелы (дротики) в
подробнее...
как выиграть дартс в GTA 4 (правил не понимаю)
Стандартная мишень разделена на двадцать пронумерованных секций, обычно чёрного и жёлтого цветов,
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
решите пожалуйста задачу... голову сломала уже...
Есть решение.
Обозначим количество бутылок коньяка через К, количество бутылок водки через В и
подробнее...
спросили в Reanimedia
Функция rand в php
function get_rand()
{
$rnd = rand(1,20);
if ($rnd == 10) $rnd = get_rand();
Функция rand в php
function get_rand()
{
$rnd = rand(1,20);
if ($rnd == 10) $rnd = get_rand();
Как в Ворде пронумеровать страницы
Разметка страницы - Параметры - Макет
Открой с 3-ей страницы и нажми до конца документа.
спросили в Спорт 1314 год
что вы знаете про дартс? история, техника бросков, дротики, мишени...
Краткая история Дартса (History of Darts game).
1314 год – Первое упоминание об игре
подробнее...
что вы знаете про дартс? история, техника бросков, дротики, мишени...
Краткая история Дартса (History of Darts game).
1314 год – Первое упоминание об игре
подробнее...
спросили в Другое Формула 4
Как играть в «Гослото «4 из 20»? Зачем там два поля в одном билете? Играю первый раз!
В «Гослото «4 из 20», чтобы сделать ставку, вам надо выбрать числа сразу в двух полях.
В
подробнее...
Как играть в «Гослото «4 из 20»? Зачем там два поля в одном билете? Играю первый раз!
В «Гослото «4 из 20», чтобы сделать ставку, вам надо выбрать числа сразу в двух полях.
В
подробнее...
спросили в Гадания
Знаете есть такая гадалка с цифорками???До 100 пишешь,а потом зачеркиваешь?
Может у кого-нибудь есть расшифровка?А то м
называется "СОТНЯ", если я правельно поняла.
1. Загадываешь парня. Пишешь числа от 1 до 100
подробнее...
Знаете есть такая гадалка с цифорками???До 100 пишешь,а потом зачеркиваешь?
Может у кого-нибудь есть расшифровка?А то м
называется "СОТНЯ", если я правельно поняла.
1. Загадываешь парня. Пишешь числа от 1 до 100
подробнее...
Сколько раз встретится "9" в любом сочетании в ряду натуральных чисел от 1 до 100? Поясните, пожалуйста, почему 19?
9,19,29,39,49,59,69,79,89,90,91,92,93,94,95,96,97,98,99
посчитать сумеешь
Кто первым заменил числа цифрами в СМИ?
Я думаю, что одним из первых это сделал известный в свое время публицист . Если Вам это имя ничего
подробнее...
Посоветуйте, пожалуйста, какие-нибудь конкурсы для того, чтобы весело отдохнуть на шашлыках 20-ти человекам)))
Да ты сама попробуй в Инете найти конкурсы, их же куча. Вот хотя бы в Янедксе. Просто набери
подробнее...