Для быстрого доступа к программам, документам и другим объектам
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.
Var
a,b:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('S = ',a*b);
End.
В D/2013/Весна создали папку Май, позже переместили Ландыш.doc в папку Май, соответственно правильный ответ четвертый: D/2013/Весна/Май/Ландыш.doc
AB9 = <span>2745
Вот ответ </span>↑<span>
</span>Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все</span>