program zakonnietona3;
uses crt;
var F1,F2: real;
begin
cls;
writeln('Третий закон Ньютона-тела действуют друг на друга с силами направленными ');
writeln('вдоль одной прямой,');
writeln(' равными по числовому значению и противоположны по направлению');
write('Введите первую силу');
read(F1);
F2:=-F1;
write('Вторая сила F2=',F2);
end.
Домашние приборы,размер,и цвет
Program yjuufyj7;
var a,b,c
begin
read(a,b,c);
if a>(b+с) then writeln(a+b) else writeln("нет");
end.
Это на Паскале, если нужен другой язык пиши в ЛС
Решение в Кумире
цел а,б,с
алг
нач
ввод а,б,с если а>(б+с) то вывод а+б иначе вывод "нет" все
кон
147.65= 1*10^2+4*10^1+7*10^0+6*10^-1+5^-2
248=2*16^2+4*16^1+8*16^0
365=3*8^2+6*8^1+5*8^0
1010=1*2^3+0*2^2+1*2^1+0*2^0