Пример вашей программы в прикрепленном файле
Ответ:
Program a2;
var k, m, c: integer;
begin
readln(k, m, c);
if (k+m) >= c Then
writeln('Yes')
else
writeln('No');
end.
Объяснение:
k - денег у Вити, m - денег у Пети, c - стоимость покупок, если сумма денег больше либо равна стоимости покупок => расплатиться они за покупки смогут
Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.
А) свойства и отличительные характеристики.
б) величина и значение объекта
в) возможности объекта обозначаются именами действий, отвечающие на вопрос "Что он может делать?"
г) описание действия объекта свойственного ему
д) сочетание значений всех или некоторых свойств объекта