Добавил:
DIF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N2
.PAS Program V41_N2;
uses crt;
var
A1,A2,A3 :real;
k :byte;
BEGIN
clrscr;
k:=0;
write('‚ўҐ¤ЁвҐ A1,A2,A3: ');
readln(A1,A2,A3);
if (A1>=5)and(A1<10) then k:=1
else if (A2>=5)and(A2<10) then k:=1
else if (A3>=5)and(A3<10) then k:=1;
if k=0 then writeln('’ Є®© ЇҐаҐ¬Ґ®© Ґв!!!')
else writeln('’ Є п ЇҐаҐ¬Ґ п Ґбвм!!!');
readln;
END.
uses crt;
var
A1,A2,A3 :real;
k :byte;
BEGIN
clrscr;
k:=0;
write('‚ўҐ¤ЁвҐ A1,A2,A3: ');
readln(A1,A2,A3);
if (A1>=5)and(A1<10) then k:=1
else if (A2>=5)and(A2<10) then k:=1
else if (A3>=5)and(A3<10) then k:=1;
if k=0 then writeln('’ Є®© ЇҐаҐ¬Ґ®© Ґв!!!')
else writeln('’ Є п ЇҐаҐ¬Ґ п Ґбвм!!!');
readln;
END.
Соседние файлы в папке V41