Во 2 задание где принт изображён там команда напечатать если к компьютеру подключён принтер то что есть в программе можно напечатать там в 3 задании уходшение зрения надо отметить
Количество просмотров >300 и количество просмотров <=800 и кол-во покупок<=50:620-190=430 записей.
Количество просмотров >300 и количество просмотров <=800 и кол-во покупок<=20: 430-170=260 записей
ответ:260
var
year:integer;
begin
writeln('Введите год');
readln(year);
if (year > 2000) and (year < 2101) then
writeln('Этот год относится к XXI веку') else
writeln('Этот год не относится к XXI веку');
end.
бумажные, голосовые, компьютерные
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.