3.
var
a, b : integer;
begin
readln(a, b);
if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');
end.
4.
var
a : integer;
begin
readln(a);
if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');
end.
Ответ:
беспонятия, что это делает в информатике, но ладно
Решение:
28-12=16
16-10=6
Ответ:6
Объяснение:
1)12 книг никто не прочитал, поэтому спокойно их отнимаем и получаем 16
2)От 16 отнимаем общее кол-во прочитанных книг Г.Поттером, т.к. в кол-во прочитанных книг Поттером входит и те самые 6 книг прочитанных ими обоими.
Получаем 6
Либо одна собака (4 лапы) и три курицы (6 лап), либо две собаки (8 лап) и одна курица (2 лапы)
Таблица Истинности в прилагающем файле
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.