Неправильно выдаёт часы ? program z1; var m, d, n, m1, s, m2, h: integer; begin write('введите значение m: '); readln(m); d : = m div 86400; n : = m div 86400; m1 : = 0; m1 : = 1; s : = m mod 60; m : = m div 60; m2 : = m mod 60; m : = m div 60; h : = m mod 60; if h > 23 then begin while h < 24 do begin h : = h - 24; n : = n + 1; end; end; if n > 31 then //январь begin n : = n - 31; m1 : = 2; if d > 28 then //февраль begin n : = n - 28; m1 : = 3; if n > 31 then //март begin n : = n - 31; m1 : = 4; if n > 30 then//апрель begin n : = n - 30; m1 : = 5; if n > 31 then//май begin n : = n - 31; m1 : = 6; if n > 30 then//июнь begin n : = n - 30; m1 : = 7; if n > 31 then//июль begin n : = n - 31; m1 : = 8; if n > 31 then//август begin n : = n - 31; m1 : = 9; if n > 30 then//сентябрь begin n : = n - 30; m1 : = 10; if n > 31 then//октябрь begin n : = n - 31; m1 : = 11; if n > 30 then//ноябрь begin n : = n - 30; m1 : = 12; if n > 31 then//декабрь begin n : = n - 31; m1 : = 1; end; end; end; end; end; end; end; end; end; end; end; end; if n> 365 then begin while n< 365 do begin n: =n-365; end; end; writeln('день с начала года: ', d); writeln('число: ', n); writeln('месяц: ', m1); writeln('время: ', h, ' ', m2, ' ', s); end.

Відповідь:

Можливості використання візуалізованою середовища програмування Scratch з розширеного освіті .

1) Має схожість з конструктором Лего.

2) Створює серію ігор за до тексту .

3) Створює програми з використанням алгоритму.

4) Ігрова середовище програмування

Lazarus має ряди компонентів:

1) Проект Lazarus є вільну середу швидкої розробки програмного забезпечення для компілятора:

Free Paskal

2) Входить в головне вікно проекту Lazarus:

меню + панель інструментів

3) Текст, який відображається на елементі або поблизу елемента контролю відповідає властивості:

Caption

4) Рядок тексту, яка представляє фактичні дані, які цей об'єкт містить, відповідає властивості:

Text

//Задан одномерный массив, заполненный 15-тью случайными целыми числами из интервала от -20 до 20.  

//Составь программу, выполняющую следующие действия: Заполнение массива, вывод на экран всех элементов исходного массива в строчку через пробел,  

//сортировка элементов массива по возрастанию, вывод полученного в результате массива на экран с новой строки через пробел.  

program massiv;

var m:array[1..15] of integer;

   i,j:byte;

   t:integer;

   

BEGIN

//заполнение случайными числа в диапазоне [-20;20]

//random(41) выдает случ. значение от 0 до 40, если вычесть -20 с концов этого отрезка получится от -20 до 20

for i:=1 to 15 do m[i]:=random(41)-20;

//вывод  полученного массива на экран

for i:=1 to 15 do write(m[i],' ');

writeln;//переход на следующую строку

//сортировка пузырковым методом

for i:=1 to 14 do

    for j:=i+1 to 15 do

        if (m[i]>m[j]) then begin

          t:=m[i]; m[i]:=m[j]; m[j]:=t;//обмен элементов массива местами

        end;

writeln('Остортированный массив');

//вывод сортированного массива на экран

for i:=1 to 15 do write(m[i],' ');

 

 

END.

Объяснение: