//PascalABC
7)а) if (x > y) then z := x + y
else z := y - x;
б)при x = 5 и y = -6 (x > y)
z = x + y = -1
8) if (num1 < num2) then num1 := num1 + num2
else num1 := num1 - num2;
//PacsalABC.Net
// (c) NaaMan
var
s : integer;
begin
write('Введите число (10-999): ');
readln(s);
writeln('В числе ', s, ' ', s.ToString.Length, ' знака');
write('Число ', s);
if s mod 3 = 0 then
write(' кратно')
else
write(' не кратно');
writeln(' трём')
end.
Ответ:
Пока карандаши есть в коробке
Берёшь 1 карандаш
Если он простой то кладёшь в белую коробку
В противном случае кладёшь в красную коробку
Система уравнений:
x=2*y
3*z=t
t=x+35
z=3*y
Решая ее получаем: x=10; y=5; z=15; t=45
x- Число лет Максима
y- Число лет Тани
z- Число орехов Максима
t- Число орехов Тани
Ответ:
Максиму 10 лет и у него 15 орехов
Тани 5 лет и у нее 45 орехов