Program klubnika
<span>var a,b : integer; </span>
<span>begin </span>
<span>writeln('введите общее количество клубники'); </span>
<span>readln(a); </span>
<span>writeln('введите количество клубники, которое собрала Вера'); </span>
<span>readln(b); </span>
<span>if a-b > b then writeln('Валя собрала больше клубники') </span>
<span>else if a-b < b then writeln('Вера собрала больше клубники') </span>
<span>else writeln('клубники было собрано поровну');</span>
2. Гимн Казахстана; ученики; ->
3. Звон будильника; мальчик; ->
5. Учитель; учащиеся; <->
6. Регулировщик; машины и пешеходы; ->
7. Родители; дети; <->
8. Завуч; учащиеся; ->
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.
5+7=12
5 у первого
7 у второго
задача стара как мир