function gcd(a,b:integer):integer; // Нахождение НОД begin while b<>0 do begin a:=a mod b; var i:=b; b:=a; a:=i end; Result:=a end;
procedure Shorter(var a,b:integer); // "сокращатель" дроби begin var k:=gcd(a,b); a:=a div k; b:=b div k end;
begin var a,b:integer; Writeln('Введите числитель и знаменатель дроби: '); Read(a,b); Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b) end.
Тестовое решение: Введите числитель и знаменатель дроби: 25 15 25/15=5/3
paninsv
12.03.2023
И лишь пару лет тому назад интернет не был так значим людьми, как в наши дни. Дети не ходят гулять, а сидят в интернете, играя в различные игры или общаясь с людьми в соц сетях. Живое общение заменяет "смс". Не понимаешь чего-либо в уроке или жизни - загулил, хотя можно подойти к учительнице, попросить и она попытается понятно донести ту или иную информацию; или же подойти к родителям и попросить совета. Сейчас интернет имеет большую роль в нашем образе жизни, в жизни молодежи, но это не значит, что стоит забывать о реальном мире. Блин, как-то так
в слове учебник- 7
в слове клавиатура- 10
в слове модем- 5