program zz1;
var n,n1,n2,n3:integer; //задаем переменные
begin
write('введите заданное трехзначное число');
read(n); //вводим с клавиатуры заданное трехзначное число
n1:=n div 100; //находим первую цифру числа
n2:=(n mod 100) div 10; //находим вторую цифру числа
n3:=n mod 10; //находим третью цифру числа
if (n1 mod 2 = 0)and(n2 mod 2 = 0)and(n3 mod 2 = 0) //проверяем, если все цифры четные, то выводим один ответ, если нет, то другой
then write('все цифры числа четные ') else write('некоторые цифры числа не четные');
Объяснение:
var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение:
Объяснение:
uses crt;
var k:integer;
x,e,t,s:real;
begin
clrscr;
repeat
write('x<>0 x=');
readln(x);
until x<>0;
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=sqr(x/2)then s:=sqr(x/2)
else
begin
k:=0;
t:=sqr(x/2);
s:=t;
while abs(t)>e do
begin
k:=k+1;{увеличиваем счетчик}
t:=-t*sqr(x/2)/sqr(k+1);
s:=s+t;{прибавляем}
end;
end;
write('S=',s:0:5);
readln
end.