1)Это с помощью while
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
Написать программу, которая вычисляет сумму первых N четных положительных чисел. Исходные данные (N – количество чисел) вводятся из файла Input.txt. Результаты работы программы записываются в файл Out.txt. <span>
Вопрос в том что я написал программу: и вывел чтоб он считал сумму четных чисел а сумму считает не правильно
вот программа:
//---------------------------------------------------------------------------
#include <stdio.h>
#include <conio.h>
#include <math.h>
//---------------------------------------------------------------------------
int main ()
{
FILE *f1, *f2;
int n, i;
float s;
f1 = fopen("input.txt", "r");
f2 = fopen("out.txt", "w");
fscanf (f1, "%d", &n);
for (i=1; i<=n; i++)
{
if ((n>0) && (i%2==0))
fprintf(f2, "=", i);
}
s=0;
{
s=(float)s+i;
fprintf(f2,"\n Summa=%f", s);
}
fclose(f1);
fclose(f2);
getch();
return 0;
}
//---------------------------------------------------------------------------
</span><span>Дополнен 2 года назадв общем то я понял то что сумму он считает так то что впишу в файл к примеру 5 он к этому числу просто прибавляет 1 и все а мне нужно чтоб он считал все четные числа которые вывелись к примеру написал 6 он должен сложить 2+4+6 будет 12 а он пока делает я ввел 6 к нему 6+1 и 7 типаДополнен 2 года назад<span>вот программа в паскале
както так
</span></span>
Винчестер *********************************************************************************************
54:6=9
54:2=27 (52:27=2)
54:9=6 (54:6=9)
54-37=17 ( я вот даже и не знаю, на что 4 делить, чтоб 17 вышло)