daily pastebin goal
62%
SHARE
TWEET

Untitled

a guest Feb 20th, 2019 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Var a,n,i:integer;
  2. Var x:boolean; //Введем флаг, для будущей проверки
  3.  
  4.  
  5. Begin
  6.     write ('Введите ваше число, до которого ведем поиск = '); readln(a);
  7.     //Выполним проверку на возможность делить.
  8.     if a<5 then begin
  9.         writeln('Ваше число не делится на 5.');
  10.         exit;
  11.         end
  12.     else writeln('Ваше число подходит для работы.');
  13.     //Проверка окончена, теперь занулим рабочие переменные.
  14.     i:=0;
  15.     n:=0;
  16.     x:=false;
  17.     while i<a do begin
  18.             i:= i+5;
  19.             n:= n+1;
  20.             //Сделаем проверку на превышение.
  21.             if i>a then x:=true;
  22.     end;
  23.     //Вычтем точное значение, т.к у нас цикл обозначен строгостью к меньше
  24.     if x=true then begin
  25.         i:=i-5;
  26.         n:=n-1;
  27.     End;
  28.     //Вывод данных
  29.     writeln('Максимальное значение, кратное пяти: ',i);
  30.     writeln('Номер этого числа: ',n);
  31. End.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top