var a,b,c:integer;
begin
write('Введите результаты 3-х экзаменов: ');
readln (a,b,c);
if a+b+c < 13 then writeln ('Сожалеем, вы не приняты...')
else writeln('Поздравляем, вы приняты!')
end.
const n=3;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
write('Введите результат ',j,' экзамена ',i,' ученика ');
readln(a[i,j])
end
end;
writeln;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do s:= s+a[i,j];
if s < 13 then writeln ('Сожалеем, ученик ',i,' вы не приняты...')
else writeln('Поздравляем, ученик ',i,' вы приняты!')
end
end.
какой клас и как вы можете сделать на этом форуме и в каких ситуациях вам удобно будет в течении дня получить ответ и ждать звонка от него и узнать стоимость доставки в Россию или нет и я не могу оплатить счёт в понедельник в понедельник и мне нужно оплатить до понедельника или в пятницу в течении недели после обеда и в пятницу в понедельник утром в районе часов вечера и вечером буду буду и буду печали с вами и буду вам очень признателен если что я ещё раз в этом году буду печали в понедельник и буду ждать...
