Составить программы решения заданий в Паскале:
1. Определить, является ли целое число N четным двузнычным числом.
2. Подсчитать количество отрицательных чисел среди чисел а,b, c.
№1
Program z1;
var N:integer;
Begin
write ('Введите число N: ');
readln(N);
if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное');
end.
№2
Program z2;
var a, b, c, k:integer;
k:=0;
writeln ('Введите числа a, b и c: ');
readln(a,b,c);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
write('Количество отрицательных чисел: ',k)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
№1
Program z1;
var N:integer;
Begin
write ('Введите число N: ');
readln(N);
if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное');
end.
№2
Program z2;
var a, b, c, k:integer;
Begin
k:=0;
writeln ('Введите числа a, b и c: ');
readln(a,b,c);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
write('Количество отрицательных чисел: ',k)
end.