Решение задачи в приложенном файле.
Ответ TFSBGJNB
(1-ая программа - шифратор. 2-ая - решение к первой части задания)
Это эмулятор некой платформы,аля windows or linux
для которой нужен дистрибутив
Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
1)
program perviynomer;
var
a,b:integer;
begin
write ('Введите 1-ое число: ');
ReadLn(a);
write ('Введите 2-ое число: ');
ReadLn(b);
if a>b then
writeln('Задача решена ',a+b)
else
writeln('Задача решена ',a*b);
readln;
end.
2)
program vtoraya;
var
a:integer;
begin
write('Введите число: ');
ReadLn(a);
if (a>=-5) and (a<=3) then writeln('Число ', a,' лежит в данном промежутке') else
WriteLn('Число ', a,' не лежит в данном промежутке');
readln;
end.
3)
program tretya;
Var
X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if X>0 then
if Y>0 then Write('Первая четверть')
else Write('Вторая четверть')
else
if Y<0 then Write('Третья четверть')
else Write('Четвёртая четверть')
End.
5)
program chetvertaya;
uses crt;
var
a,b,c:real;
begin
Write('Введите 1-ое число: ');
readln(a);
write('Введите 2-ое число: ');
readln(b);
Write('Введите 3-ие число: ');
readln(c);
if a > b then
if b > c then writeln('Сумма наибольших: ',a+b)
else writeln('Сумма наибольших: ',a+c)
else if a > c then writeln('Сумма наибольших: ',a+b)
else writeln('Сумма наибольших: ',b+c);
readln;
end.
var
a,b,c:array [1..20] of integer;
i,k,l:integer;
begin
randomize;
k:=1;
l:=1;
writeln ('Исходный массив: ');
for i:=1 to 20 do
begin
a[i]:=random(9)+1;
if a[i] mod 2 = 0 then
begin
b[k]:=a[i];
inc(k);
end else
begin
c[l]:=a[i];
inc(l);
end;
write (a[i],' ');
end;
k:=k-1;
l:=l-1;
writeln;
writeln ('Массив четных чисел');
for i:=1 to k do write (b[i],' ');
writeln;
writeln ('Массив нечетных чисел');
for i:=1 to l do write (c[i],' ');
writeln;
readln;
end.