Назначение диалогового окна параметры страницы в ms
выберите один ответ: a. устанавливает поля, ориентацию, размер бумаги b. устанавливает границы абзаца c. позволяет распечатать документ d. устанавливает цвет, рамку, размер страницы
Var a1,a2,a3,a4,a5,max: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1>a2) then max:= a1else max:=a2; if (a2>a3) then max:=a2else max:=a3; if (a3>a4) then max:=a3else max:=a4; if (a4>a5) then max:=a4else max:=a5; end; writeln (max); end. Аналогично с минимальным числом. var a1,a2,a3,a4,a5,min: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1<a2) then min:= a1else min:=a2; if (a2<a3) then min:=a2else min:=a3; if (a3<a4) then min:=a3else min:=a4; if (a4<a5) then min:=a4else min:=a5; end; writeln (min); end. Можно так же решить с массива, если нужно пишите.
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5);
begin
if (a1>a2) then max:= a1else max:=a2;
if (a2>a3) then max:=a2else max:=a3;
if (a3>a4) then max:=a3else max:=a4;
if (a4>a5) then max:=a4else max:=a5;
end;
writeln (max);
end.
Аналогично с минимальным числом.
var a1,a2,a3,a4,a5,min: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5);
begin
if (a1<a2) then min:= a1else min:=a2;
if (a2<a3) then min:=a2else min:=a3;
if (a3<a4) then min:=a3else min:=a4;
if (a4<a5) then min:=a4else min:=a5;
end;
writeln (min);
end.
Можно так же решить с массива, если нужно пишите.
import datetime
m = 12
d = 12
year = 2020
y2021 = datetime.date(year=2021, month=m, day=d)
for i in range(20):
year += 1
y = datetime.date(year=year, month=m, day=d)
da = datetime.datetime.isoweekday(y)
print(da)
if 7 == da :
print("Sunday")
print(y)
elif 6== da :
print("Saturday")
print(y)
elif 5== da :
print("friaday")
print(y)
elif 4== da:
print("Tuesday")
print(y)
elif 3== da:
print("Wensday")
print(y)
elif 2 == da:
print("Вторник")
print(y)
elif 1 == da:
print("Monday")
print(y)
Объяснение: