// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
function ДробьНесократима(Чис,Знам:integer):boolean; begin while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end; Result:=Чис=1 end;
begin for var Знаменатель:=2 to 7 do for var Числитель:=1 to Знаменатель-1 do if ДробьНесократима(Числитель,Знаменатель) then Write(Числитель,'/',Знаменатель,' '); Writeln end.
// Внимание! Если программа не работает, обновите версию!
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7
#include <stdio.h>
#include <math.h>
#include <locale.h>
int main()
{
setlocale(LC_ALL, "rus");
int i, god, obl1, obl2, z, itog;
obl1 = 100000;
obl2 = 200000;
printf("Введите сколько лет происходит модернизация:\n");
scanf_s("%i", &god);
for (i = 1; i < god; i++)
{
if (obl2 > obl1)
{
z = obl1 + obl2;
obl1 = z;
}
else
{
z = obl1 + obl2;
obl2 = z;
}
itog = obl1 + obl2;
}
if (obl2 > obl1)
{
printf("Наибольший доход у второй области: %2d сентиннеалей\n", obl2);
}
else
{
printf("Наибольший доход у первой области: %2d сентиннеалей\n", obl1);
}
printf("Общий доход за %2d лет : %2d сентиннеалей\n", god, itog);
getchar(); getchar();
}
Прикрепил пару тестов и саму программу, если интересно