Составьте программу (в Pascal ABC), которая выводит на экран дату в рамке ?

Luiza3333 28 февр. 2020 г., 01:03:09

/ / Pascal ABC.

NET v3.

1 сборка 1172 / / Вариант без ввода переменных, выводится системная дата

Uses

system ;

var t : DateTime ;

begin t : = DateTime.

Now ;

{если не работает, попробуйте t : = CurrentDateTime ; } writeln(' * * * * * * * * * * * * * ') ; writeln(' * ', t.

Day, '.

', t.

Month, '.

', t.

Year, ' * ') ; writeln(' * * * * * * * * * * * * * ') ;

end.

Пример вывода : * * * * * * * * * * * * * * 10.

4. 2016 * * * * * * * * * * * * * * / / Вариант со вводом переменных

Var

s, c : string ;

i : integer ;

begin

s : = ' * ' ;

write('Введите день : ') ; readln(c) ;

if length(c) = 1 then c : = '0' + c ;

s : = s + c + '.

' ;

write('Введите месяц : ') ; readln(c) ;

if length(c) = 1 then c : = '0' + c ;

s : = s + c + '.

' ;

write('Введите год : ') ; readln(c) ;

s : = s + c + ' * ' ;

for i : = 1 to length(s) do

write(' * ') ;

writeln ;

writeln(s) ;

for i : = 1 to length(s) do

write(' * ') ;

end.

Пример ввода :

Введите день : 10

Введите месяц : 4

Введите год : 2016

Пример вывода : * * * * * * * * * * * * * * * 10.

04. 2016 * * * * * * * * * * * * * * *.

Arina464646 3 нояб. 2020 г., 06:13:30 | 10 - 11 классы

Составьте программу в Pascal ABC которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150?

Составьте программу в Pascal ABC которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150.

Спасибо заранее.

Laisrem13 8 дек. 2020 г., 23:51:41 | 10 - 11 классы

Pascal abc Написать программу, которая бы вводила с клавиатуры два символа и выводила на экран тот, код которого больше (использовать операцию сравнения символов)?

Pascal abc Написать программу, которая бы вводила с клавиатуры два символа и выводила на экран тот, код которого больше (использовать операцию сравнения символов).

Lollal1 16 февр. 2020 г., 13:00:11 | 10 - 11 классы

Напишите пожалуйста программу на pascal?

Напишите пожалуйста программу на pascal.

Составьте программу, которая выводит на экран сумму чисел кратных 5 - и от 30 до 60.

Цикл repeat.

Isida78s 12 дек. 2020 г., 05:03:40 | 5 - 9 классы

Составьте программу, которая заполняет массив а[1?

Составьте программу, которая заполняет массив а[1.

10] случайными целыми числами от 0 до 2 и выводит на экран количество элементов, равных 1.

Pascal Abc.

Evashva 22 нояб. 2020 г., 02:20:56 | 5 - 9 классы

Составить программу, которая запрашивает предложение и выводит на экран все его буквы "и"?

Составить программу, которая запрашивает предложение и выводит на экран все его буквы "и".

Программу составить при помощи Pascal ABC.

Nastia1830 16 янв. 2020 г., 15:35:23 | 10 - 11 классы

Помогите пожалуйста?

Помогите пожалуйста.

(Напишите программу которая преобразует угол из градусной меры в радианную.

Результат выводится на экран) в pascal ABC.

Sabrinakotsk1 27 сент. 2020 г., 00:02:27 | 5 - 9 классы

Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC?

Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC.

Составить программу, которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.

Ivanushun12345 2 июл. 2020 г., 12:04:02 | 5 - 9 классы

Pascal ABC?

Pascal ABC.

Дано натуральное число "n".

Составьте программу которая выводит максимальную цифру этого числа.

Rossy11 21 авг. 2020 г., 03:29:11 | 5 - 9 классы

Составьте программу, которая, учитывая наименование года и день недели соответствующий 1 января, выводит на экран наименования месяцев в которых число 13 выпадет на пятницу (программа pascal abc) сроч?

Составьте программу, которая, учитывая наименование года и день недели соответствующий 1 января, выводит на экран наименования месяцев в которых число 13 выпадет на пятницу (программа pascal abc) срочно надо, не понимаю как составить(.

Dalluk 28 окт. 2020 г., 03:16:46 | 5 - 9 классы

Циклы (for and while), помогите составить программу в Pascal ABC, пожалуйста?

Циклы (for and while), помогите составить программу в Pascal ABC, пожалуйста.

Составьте программу, которая выводит на экран количество трехзначных чисел у которых вторая цифра в два раза больше первой, а третья в два раза больше второй.