Program pos; var n, a, b, c, s, d: integer; begin write('n = '); readln(n); if n < 1000 then begin a := n div 100; b := n mod 100 div 10; c := n mod 10; write('В числе '); if a = 0 then if b = 0 then begin d := 1; writeln('1 цифра'); end else begin d := 2; writeln('2 цифры'); end else begin d := 3; writeln('3 цифры'); end; s := a + b + c; writeln('Сумма цифр: ', s); if n mod 2 = 0 then writeln('Число чётное') else writeln('Число нечётное'); if d = 1 then writeln(c) else if d = 2 then writeln(c, b) else writeln(c, b, a); end else writeln('Число > 1000!'); end.
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.