Решение задачи 12 из главы 11

Primary tabs

Submitted by testok on Fri, 10/30/2020 - 05:36

Forums:

Решение задачи 12 из главы 11

11. Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

program Project12;
var a, i, b, c, d: integer;
begin
 a:=15;
 i:=(a div 15);
 b:=(a div 3);
 c:=(a mod 7);
 d:=(a mod 10);
 writeln(i, ' ', b);
 write(c, ' ', d);
 readln();
end.
  • Log in to post comments
  • 1278 reads

sergio

Mon, 11/02/2020 - 20:28

Например число n = 6775
n mod 10
n div 1000

testok

Mon, 11/02/2020 - 21:46

Оказывается, все намного проще....

program Project12;
var a, i, c: integer;
begin
 a:=15;
 i:=(a div 10);
 c:=(a mod 10);
 writeln('Pervaja zifra - ', i, ', Poslednaja zifra - ', c);
 readln();
end.