Программа написана на языке Pascal
var
x: integer;
begin
readln(x);
if x mod 5 = 0 then
writeln(x * x)
else
writeln(x * x * x)
end.
Ответ: 22
Объяснение: Умножаем кол-во раз сколько встречается буква в слове на количество символов сколько оно имеет (нули тоже считают)
Я решала сама и нигде не нашла ответа, если кто-нибудь сверится со мной было бы круто
Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.