//Pascal ABC.NET v3.0 сборка 1111
Var
a,b,c,d:integer;
begin
read(a,b);
c:=a;
d:=b;
while (a<>0) and (b<>0) do
if a>b then a:=a mod b else b:=b mod a;
writeln(c div (a+b));
writeln('---');
writeln(d div (a+b));
end.
//А теперь программа для тестов, выведет 1000 результатов в файл
Var
a,b,c,d,i:integer;
f:text;
begin
assign(f,'text.txt');
rewrite(f);
for i:=1 to 1000 do
begin;
a:=random(1,100);
b:=random(1,100);
c:=a;
d:=b;
while (a<>0) and (b<>0) do
if a>b then a:=a mod b else b:=b mod a;
writeln(f,c,' ',c div (a+b));
writeln(f,'=':length(inttostr(c)));
writeln(f,d,' ',d div (a+b));
writeln(f);
end;
close(f);
end.
Легко же, расширение - .ppt
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
cin >> n;
int ans = 0, cur;
for (int i = 0; i < n; i++)
{
cin >> cur;
ans += (cur % 3 == 0);
}
cout << ans;
}
Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.