Program multiplication;
var i : byte;
begin
for i:=1 to 10 do
writeln('5*',i,'=',5*i);
end.
1)
var
x, n, i: integer;
flag: boolean;
begin
read(n);
flag := false;
for i := 1 to n do
begin
read(x);
if((x mod 10 <> 1) and (x mod 2 <> 0)) then
begin
flag := true;
break;
end;
end;
if(flag) then write('YES')
else write('NO')
end.
2)
var
x, n, i, count: integer;
begin
count := 0;
read(n);
for i := 1 to n do
begin
read(x);
if((x mod 3 = 0) and (x mod 2 <> 0)) then count := count + 1;
end;
write(count);
end.
Из условия неясно, как определяются размеры участков огорода - линейными размерами или площадью. Т.е. что должно быть целым - линейные размеры или площадь? Будем считать, что целыми должны быть линейные размеры.
Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.
var
A,B:integer;
f:Text;
begin
Assign(f,'input.txt');
Reset(f);
readln(f,A,B);
writeln('Размеры участка ',A,', ',B);
if (A mod 2=0) or (B mod 2=0) then writeln('0')
else writeln('1')
end.
Результат решения:
Размеры участка 8, 4
0
Минимум 1-8 мегабайта в секунду
<span>Информация
в нашей жизни играет огромную роль. Благодаря информации, человек учиться
мыслить, формирует свои взгляды на те или иные вещи. Без информации не
существовало бы общества. Существует множество видов информации. Мы получаем её
когда слушаем кого-то, рассматриваем, нюхаем и даже трогаем. Очень важно
фильтровать информацию, которую получаешь. Нельзя запоминать всё, что видишь и
слышишь (это засоряет твою речь и твой разум). Существует так-же дезинформация.
Дезинформацией называется один из способов манипулирования информацией, как то
введение кого-либо в заблуждение путём предоставления неполной информации или
полной, но уже не нужной информации, или полной, но не в нужной области,
искажения контекста, искажения части информации.</span>