Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Написать код.Язык Pascal
Никита Васильчук
(230),
закрыт
4 недели назад
Дополнен 1 месяц назад
Program time;
begin
var a,b,c,i,j,h,m:integer;
h:=18;
m:=0;
a:=1;
b:=30;
For i:=h downto h-6 Do
begin
For j:=h downto h Do
Write (h+' '+m);
WriteLn;
If m=0 then
begin
m:=m+b;
h:=h-a;
end
else m:=m-30;
end;
end.
begin
var a,b,c,i,j,h,m:integer;
h:=18;
m:=0;
a:=1;
b:=30;
For i:=h downto h-6 Do
begin
For j:=h downto h Do
Write (h+' '+m);
WriteLn;
If m=0 then
begin
m:=m+b;
h:=h-a;
end
else m:=m-30;
end;
end.
Лучший ответ
Jurijus Zaksas
(425115)
1 месяц назад
У тебя пример не соответствует задаче.
Время от 18:00 до 13:00 - это 18:00, 18:30, 19:00 ... 00:00 ... 13:00
Время от 18:00 до 13:00 - это 18:00, 18:30, 19:00 ... 00:00 ... 13:00
Никита ВасильчукУченик (230)
1 месяц назад
Время уменьшается
Jurijus Zaksas
Искусственный Интеллект
(425115)
В условии задачи этого нет. Сам придумал?
Jurijus ZaksasИскусственный Интеллект (425115)
1 месяц назад
var
h, d: integer;
begin
for d:=0 to 4 do
begin
for h:=18-d downto 13 do
begin
Write(h,':00 ');
if (h<>13) then
Write(h-1,':30 ');
end;
Writeln;
end;
Readln;
end.
Остальные ответы
Otid Kartgepsut
(2856)
1 месяц назад
Ты бы текстом написал что-ли... За такое даже дьявол в ад не впустит
Никита ВасильчукУченик (230)
1 месяц назад
Program time;
begin
var a,b,c,i,j,h,m:integer;
h:=18;
m:=0;
a:=1;
b:=30;
For i:=h downto h-6 Do
begin
For j:=h downto h Do
Write (h+' '+m);
WriteLn;
If m=0 then
begin
m:=m+b;
h:=h-a;
end
else m:=m-30;
end;
end.
begin
var a,b,c,i,j,h,m:integer;
h:=18;
m:=0;
a:=1;
b:=30;
For i:=h downto h-6 Do
begin
For j:=h downto h Do
Write (h+' '+m);
WriteLn;
If m=0 then
begin
m:=m+b;
h:=h-a;
end
else m:=m-30;
end;
end.
Otid Kartgepsut
Гуру
(2856)
Никита Васильчук, program program_time;
uses
SysUtils;
procedure program_time;
var
a, b, c, i, j, h, m: Integer;
begin
h := 18;
m := 0;
a := 1;
b := 30;
for i := h downto h-6 do
begin
for j := h to h+1 do
begin
WriteLn(h, ' ', m);
end;
WriteLn;
if m = 0 then
begin
m := m + b;
h := h - a;
end
else
begin
m := m - 30;
end;
end;
end;
begin
program_time;
end.
Никита ВасильчукУченик (230)
1 месяц назад
Слушай выдает ошибку:Program2.pas(4) : Модуль 'SysUtils' не найден
Никита ВасильчукУченик (230)
1 месяц назад
это что за модуль,я вообще новичок
Otid Kartgepsut
Гуру
(2856)
Никита Васильчук, SysUtils — это модуль компилятора Free Pascal (FPC), который предоставляет набор системных утилит. Он похож на модуль SysUtils в Delphi, но доступен на всех платформах, поддерживаемых FPC. Модуль SysUtils в FPC пытается быть максимально совместимым с модулем SysUtils Delphi, но он не содержит никаких подпрограмм, связанных с Windows, или других функций, сильно специфичных для платформы.
Похожие вопросы
Написать код,чтобы программа выдала время:
18:00 17:30 16:30 16:00 15:30 15:00 14:30 14:00 13:30 13:00
16:30 16:00 15:30 15:00 14:30 14:00 13:30 13:00
15:30 15:00 14:30 14:00 13:30 13:00
14:30 14:00 13:30 13:00
13:30 13:00
Использовать простые команды по типу что я писал. Чтобы полегче разобраться было.
И объяснить если не сложно в чем ошибка у меня на фото.