Восстановите текст программы ( вставте пропущенные обозначения )
var
I:integer;
x:integer;
y,q:integer;
a:string;
begin
i:=o;[обнуление переменных]
x:=0[ обнуление переменных]
y:=0;[обнуление переменных]
writeln ("Как вас зовут?Введите ваше имя русскими буквами-') ;[вывод заданного текста на экран]
readin (a);[ввод переменной, в которой храниться имя]
writeln ('Введите количество расчетных циклов-?); [ вывод заданного текста на экран]
readin (i); [ввод переменной, указывающей количество повторений]
for vas z:= 1 to I do
begin
writeln ( 'введите х- '); [вывод заданного текста на экран]
readin; [ввод переменной]
writeln ('введите у-'); [ вывод заданного текста на экран]
(у); [ввод переменной]
q:=q+x+y; [вычисление суммы]
end;
('Уважаемый', а, 'Сумма всех введённый чисел=',q,) ;
end.
1-я задача: ЯБЛОК НЕ БОЛЬШЕ, ЧЕМ ГРУШ
2-я задача: ЯБЛОК НЕ МЕНЬШЕ, ЧЕМ 20
1-я задача:
Я<=Г
Г=15
ответ: плодов не более 30 (15 груш и не более 15 яблок)
2-я задача:
Г=15
Я>=20
ответ: плодов не менее, чем 35 (15 груш и не менее 20 яблок)
Если это всё же одна задача и оба условия надо воспринимать одновременно, то:
ответ: условие задачи некорректно, так как 2 условия противоречат друг другу, то есть не может быть одновременно яблок не больше 15 и не меньше 20.