Задача

[Niro]

Задача в турбо паскале. Даны два числа a и b , если они равны, то найти их сумму. Если не равны, то найти их произведение. Напишите решение

p.s. Информатика 9 класс.

Хм, а где "здрасте, помогите, подтолкните к решению"?
ну так, ради приличия???

ну ладно, задача простецкая, так что

Даны два числа a и b

1) объявляете эти два числа, плюс переменную Х в разделе "ВАР" и пишите их тип - real
2) Затем,между "Бегином" и "Эндом" (которые незабудьте написать)
3)вбиваете проверку: если (if) а равно бэ, то присваиваем (:=) значению переменной Х их сумму а+бэ, иначе (else) переменной Х присваиваете их произведение а*бэ, точка с запятой.
4)выводим на экран (writeln)
5) вставляем задержку (readln) - чтоб окошко сразу не закрылось

[Sciv]

Niro, и не лень было писать столько? :D
Программа короче бы выглядела.

[Mad_Cat]

var a,b:real;begin readln(a,b);if a=b then writeln(2*a) else writeln(a*b);readln;end.

[Nastia1997]

Спасибо большое за помощь Я бы никогда не решила ,хотя задача легкая Только вот паскаль пишет все равно ошибку Но это уже во мне к сожалению проблема....(

[solovey.kurskiy]

Niro, я конечно дико извиняюсь, что не поздоровался и задал вопрос. А так же хочу сказать спасибо всем, кто ответил на мой вопрос.

[solovey.kurskiy]

Сообщение от Nastia1997

Спасибо большое за помощь Я бы никогда не решила ,хотя задача легкая Только вот паскаль пишет все равно ошибку Но это уже во мне к сожалению проблема....(

Дочь моя, я думаю что парни написали тебе правильный ответ на задачу по информатике. Завтра и узнаем так это или нет

[Nastia1997]

var a,b:real;begin readln(a,b);if a=b then writeln(2*a) else writeln(a*b);readln;end.
А почему там "2" и два умножения?

[Mad_Cat]

если a=b то a+b=a+a=2*a understand?

[Nastia1997]

Thank you for the help good man!

[Nastia1997]

Сообщение от Sciv

Niro, и не лень было писать столько? :D
Программа короче бы выглядела.

Спасибо большое ВамСтало понятнее