program choise;
var m:integer;
begin
writeln('Введите натуральное число ');
read(m);
if m=1 then
writeln('Привет')
else if m=0 then
writeln('Как дела?')
else
writeln('Пока');
end.
//Pascal ABC.NET 3.1 сборка 1219
uses
system;
Var
d1,d2:datetime;
a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.
Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366
Минимальная единица<span> измерения </span>информации<span> - бит (обозначение - bit). </span><span>Более популярная - байт (обозначение - byte) - в нем 8 бит (а в </span><span>високосном байте - 9 бит)</span>
Сообщение информативно, если оно пополняет знания человека
Ну. некоторые из них ложные.ТАМ ГДЕ НАПИСАНО РЯДОМ Л ЭТО ЛОЖ А ТАМ ГДЕ И ЭТО ИСТИНА