Паскаль
program m1;
uses crt;
var a,b,c,d:integer;
begin
write('Введите число: '); readln(a); {Задаем число}
b:=a mod 10; {В переменную b заносится значение последней цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
c:=a mod 10; {В переменную c заносится значение последней(второй) цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
d:=a mod 10; {В переменную d заносится значение первой цифры в числе}
if (d*b = d + c) then writeln('Произведение 1 и 3 цифры и сумма 2 и 1 цифр равны!')
else writeln('Произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны!');
end.
Вот, пришлось вспомнить былые деньки... Эх, ностальгия... Старость х)
1)pascal
2)C++
3)ассемблер
4)python
5)java три последних посмотрел по интернету но вроде всё сходится
1)использовать Чертежник
алг
нач
опустить перо
нц 5 раз
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
сместиться на вектор(1,1)
сместиться на вектор(1,-1)
сместиться на вектор(-1,-1)
сместиться на вектор(-1,1)
поднять перо
сместиться на вектор (2,-1)
опустить перо
кц
<span>кон
2)</span>использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
нц 3 раз
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
сместиться на вектор(-2,-2)
сместиться на вектор(-2,2)
поднять перо
сместиться на вектор(4,-1)
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
кц
<span>кон</span>