Var c, ans, n, a, i, sum:integer;
begin
read(n);
read(c);
for i = 1 to n do
begin
read(a);
sum := sum+a;
if (sum >= c) then begin
ans := i;
break;
end;
end;
write(ans);
end.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double e = 2.71828182846;
double x = 0.29;
double y = atan(pow(pow(x * e , x), 3));
cout << y;
return 0;
}
Программа на PascalABC (На листинг программы сейчас попробую прислать ссылку)
Вот способ, гораздо удобнее:
1) var i:integer;
begin
for i:=1 to 6 do
writeln('"Я люблю свою Родину!"');
end.
2)var i:integer;
begin
for i:=1 to 6 do
write('"Я люблю свою Родину!" ');
end.<span>
</span>