Алгоритм, иконка, Интернет, не знаю.
Даны<span> два </span>числа<span>. Если оба кратны </span>четырем<span>, </span>товывести<span> их произведение.</span>
<span>Ответ: Если кратны, </span>то<span> значит без остатка делится на </span>4<span>. Первая формула будет деление на </span>4. Дальше уже условие какое-то<span> мутить на проверку полученного результата
</span>
-----------------------------
На удаление
На языке паскаль, за
взято 3,14:
program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.
Program calculator;
Var a,c: real;
b: char;
Begin
Write('Введите первое число: ');
readln (a);
Write('Введите знак. ( + - сложение, - - вычитание, / - деление, * - умножение): ');
readln (b);
Write('Введите второе число: ');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*': a:=a*c;
'/': a:=a/c;
end;
Write ('Результат: ',a);
End.