1)
var
x,y,s:real;
begin
readln(x,y);
s:=abs(x*y);
writeln(s:8:2);
end.
2)
var
a:integer;
begin
readln(a);
if a mod 2=0 then writeln("четное число")
else writeln("нечетное число")ж
end.
<span> общий алгоритмический метод для нахождения оптимальных решений различных задач оптимизации, особенно дискретной и комбинаторной оптимизации. По существу, метод является вариацией полного перебора с отсевом</span>
Ответ:
1. Вращение - картинка 2
2. Смещение - картинка 4
3. Перемещение - картинка 1
4. Тяни/Толкай - картинка 3
Begin
randomize;
writeln('Для молодёжи: ', 1 + random(100));
writeln('Для взрослых: ', 101 + random(100));
writeln('Для стариков: ', 201 + random(50));
end.
<span> 0,0625 Мб =</span><span>65 536 байт
</span>