Program summa;
var a,b,s:double;
begin
write('Введи первое число: ');
readln(a);
write('Введи второе число: ');
readln(b);
s:=a+b;
writeln(round(s));
end.
Все за одного и одни за всех
Var a : integer;beginwriteln('Введите температуру: ');read(a);if (a<31) and (a>10) then writeln('Жарко');if (a>0) and (a<11) then writeln('Прохладно');if a>30 then writeln('Температура не соответстувет условию 0<t<30');if a<1 then writeln('Температура не соответстувет условию 0<t<30');end.
Т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии
Если я правильно понял и на 1 рисунке "мыло", то убираем две последние буквы слова, оставляем "мы", 2 слово "кошка" убираем первые две буквы, остается "шка"
"мы"+"шка"="мышка"
567(10) = 5*10^2+6*10^1+7*10^0
94.53(10) = 9*10^1+4*10^0+5*10^(-1)+3*10^(-2)
110.101(2) = 1*2^2+1*2^1+0*2^0+1*2^(-1)+0*2^(-2)+1*2^(-3)
11101(2) = 1*2^4+1*2^3+1*2^2+0*2^1+1*2^0