Помогите пожалуйста написать программы ))

0 голосов
13 просмотров

Помогите пожалуйста написать программы ))


image

Информатика (26 баллов) | 13 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

1)
var 
  i, n, c, b, af, bf, a: integer; 
 begin 
  af := 0; 
  bf := 0; 
  c := 0; 
  write('Введите число:'); 
  readln(n); 
  writeln('Введите A,B:'); 
  readln(a, b); 
  while n > 0 do 
   begin 
    if((n mod 10) mod 2 = 0) then c := c + 1; 
    if(n mod 10 = a) then af := af + 1; 
    if(n mod 10 = b) then bf := bf + 1; 
    n := n div 10; 
  end; 
  writeln('Количество четных цифр: ', c); 
  if(af > 0) and (bf > 0) then write('Да') 
  else write('Нет');
 end.
2)
var 
  i: integer; 
 begin
   for i := 1000 to 9999 do 
    if((i mod 10) = (i div 1000)) and ((i mod 100 div 10) = (i div 100 mod 10)) then write(i, ' '); 
  end; 
end.
3)
var 
  n, c, a, b, i: longint; 
 begin 
  readln(a); 
  n := a; 
  b := a; 
  while n > 0 do 
   begin 
    c := c + 1; 
    n := n div 10; 
  end; 
  for i := 1 to c do b := b * 10; 
  a := a + b; 
  write(a); 
end.

(6.9k баллов)