var
i, s, N: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
s := 0;
for i := 1 to n do
s := s + 2 * i;
Writeln ('Сумма = ' + IntToStr (s));
end;
будьте, пожалуйста, внимательней. Вчера вечером была эта же задача.
znanija.com/task/1112711
бег - бог - рог - рок - рак - мак - маг - шаг
море-горе-гора-пора-пара-папа-сапа-саша-суша
миг-маг-мак-пак-пек-век;
бант-бунт-бурт-борт-корт-кора-коса
шар-шаг-лаг-луг-луб-куб
муха - муpа - туpа - таpа - каpа - каpе - кафе - кафp - каюp - каюк - кpюк - уpюк - уpок - сpок - сток - стон - слон
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int s1,m1,h1,s2,m2,h2;
cin>>h1>>m1>>s1>>h2>>m2>>s2;
s1=s1+m1*60+h1*3600;
s2=s2+m2*60+h2*3600;
cout<<s2-s1;
cin.get();
cin.get();
return 0;
}