| Carnivora | Дата: Четверг, 22.12.2011, 02:21 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Сегодня учительница дала две задачи и сказала решить их в паскале. Я ничего не понимаю. Помогите, пожалуйста.
задача №1
вводятся возраста двух девочек(12 и 13 лет), определите старшую из них
задача №2
ввели стоимость одного продукта( 13р 50к) и ввели сумму денег которая была в наличии(50 рублей), определить хватает ли денег на покупку продукта и сдачу
Добавлено (22.12.2011, 02:21)
---------------------------------------------
Для первой задачи это будет правильным решением?
Uses Crt;
Var
a,b,c,max:Integer;
Begin
ClrScr;
Write('a = 12');
Readln(a);
Write('b = 13');
Readln(b);
If (a>b) Then max:=a;
If (b>a) Then max:=b;
Write('max=b',max);
Readln;
End.
Сообщение отредактировал Carnivora - Четверг, 22.12.2011, 02:21 |
| |
| |
| Ches | Дата: Четверг, 22.12.2011, 03:04 | Сообщение # 2 |
 Знакомый
Группа: Пользователи
Сообщений: 12
Статус: Offline
| я со школы мало что помню, но разве не
Write('12');
Readln(a);
Write('13');
Readln(b);
хотя хз... не помню)
у задачи нет смысла...это все равно, что написать
begin
write('max=b, 13')
end;
|
| |
| |
| Seqular | Дата: Пятница, 23.12.2011, 16:46 | Сообщение # 3 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Carnivora, Ваши задачи решаются простым If Then Else
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
