fork download 
  1. program GuessNumber;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var
  9.   r1, r2, r3: Integer;
  10.   s, guessedNumber: Integer;
  11.  
  12. begin
  13.   WriteLn('Угадывание задуманного числа от 7 до 70');
  14.   Write('Введите остаток от деления на 2 (r1): ');
  15.   ReadLn(r1);
  16.   Write('Введите остаток от деления на 5 (r2): ');
  17.   ReadLn(r2);
  18.   Write('Введите остаток от деления на 7 (r3): ');
  19.   ReadLn(r3);
  20.  
  21.   s := 35 * r1 + 56 * r2 + 50 * r3;
  22.  
  23.   if (s mod 70 = 0) then
  24.     guessedNumber := 70
  25.   else
  26.     guessedNumber := s mod 70;
  27.  
  28.   WriteLn('Задуманное число: ', guessedNumber);
  29.   ReadLn;
  30. end.
  31.  
Success #stdin #stdout 0s 5280KB
comments (?)
stdin 
Standard input is empty
stdout 
Угадывание задуманного числа от 7 до 70
Введите остаток от деления на 2 (r1): Введите остаток от деления на 5 (r2): Введите остаток от деления на 7 (r3): Задуманное число: 70
https://ideone.com/lDwdOO
language:
Pascal (fpc 3.0.4)
created:
13 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!