Надо ! 1.составьте программу двух обыкновенных дробей (с клавиатуры должны вводиться их числители и - id199905420200523 от sobik21 23.05.2020 04:18

Question

Информатика: Надо ! 1.составьте программу двух обыкновенных дробей (с клавиатуры должны вводиться их числители и знаменатели ). 2.составьте программу, позволяющую выяснить, есть ли у n два простых делителя. 3.составьте программу, отыскивающую наименьший общий составной делитель натуральных чисел n и m. 4. составте программу, вычесления суммы четырехзначных чисел, в десятичной записи которых есть два нуля.

sobik21 · Accepted Answer

1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.

2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.

3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.

MOGZ ответил