Question

Язык pascal. оператор условия! 1)даны три числа. выведите наименьшее из них. 2)определите, является ли введенное с клавиатуры число кратным 3, 7, 9. 3)дано четырехзначное число. верно ли, что число содержит ровно три одинаковые цифры. !

Answer 1

Первая
program PrograPervaya;
var x,y,z,f:integer;

begin
  Writeln('vvedite pervoe chislo:=');
   readln(x);
  Writeln('vvedite vtoroe chislo:=');
   readln(y);
  Writeln('vvedite trete chislo:=');
   readln(z);
  if (x < y) and (x < z) then  begin    Writeln('Pervoe chislo menshee');
  end;
  if (y < x) and (y < z) then
  begin
    Writeln('Vtoroe chislo menshee');
  end;
  if (z < x) and (z < y) then  begin  Writeln('Tretee chislo menshee');
  end;
  Write('End?');
  readln(f);
end. 
 Вторая
program PrograVtoraya;
var k,i:integer;
begin
  writeln('vevedite chislo');
  readln(k);
  if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then
  begin    writeln('chislo kratnoe 3, 7,9');
  end
  else
  begin
  writeln('chislo ne kratno 3,7,9');
    end;
  writeln('End?');
  readln(i);

end.

Третья

program PrograVtoraya;var z,n,k,s,i:integer;
begin
writeln
('vvedite 4 znach chislo');
readln(n);
z:=n div 1000;
k:=n div 100 mod 10;
s:=n div 10 mod 10;
i:=n mod 10;
if ((z = k) and (z = s) and (s = k)) or ((k = s) and (k = i) and (s = i)) or ((i = z) and (i = k)) and ( k = z) then begin writeln('Da, verno');
 end
else
begin
writeln('net, ne verno!');
end;

 writeln('End?');
readln(i);

end.