Предмет: Математика, автор: nikolas46

#9 пожалуйста даю 10 баллов

Приложения:

Ответы

Автор ответа: nikita1866

0

0000055 0000505 0000550 0005050 0005500 0050500 0055000 0505000 0550000 5050000 5500000

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Математика, автор: rogovr20

пожалуйста помогите

5 лет назад

Предмет: Геометрия, автор: kislorod11

пример
2. Зайти катети прямокутного трикутника, якщо вони відносяться як 8:15, а
гіпотену за дорівнює 34 см.

5 лет назад

Предмет: Русский язык, автор: Аноним

СПАСИТЕ .....А Я ВАС СПАСУ,ЕСЛИ НАДО!!!!! ЛЮДИИИИИ помогите в ом

5 лет назад

Предмет: Математика, автор: даша1630

принадлежит или нет?

8 лет назад

Предмет: Информатика, автор: АНТО14

Неполучается решить задачу по паскалю... выдаёт тип то что 'встречено else,а ожидался оператор 'всё перепробывал...если кто знает скажите

Program komp;

var
a,b : integer;
x,s,k : string;

begin
writeln('Введите своё имя:');
readln(x);

if x = 'Антон' then
writeln('Добро пожаловать, Антон!');
writeln('Выбирите действие:');
writeln('КАЛЬКУЛЯТОР');

readln(s);

if s = 'КАЛЬКУЛЯТОР' then
writeln('Выбирите знак(+,-,/,*):');
readln(k);
begin
begin

if k = '+' then

writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a+b)

else

if k = '-' then
writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a-b)

else
if k = '*' then
writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a*b)

else
if k = '/' then

writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a/b);

end;
end.

Программа не дописана...

8 лет назад