1.
#include <iostream> //если не отображается, пиши после include - iostream в <>
using namespace std;
int main(){
for(int i=0;i<10;i++)
cout<<"Hello World";
cin.get();
cin.get();
return 0;
}
11.
#include <iostream> //если не отображается, пиши после include - iostream в <>
#include <string> //если не отображается, пиши после include - string в <>
using namespace std;
int main() {
<span> string s,p;
</span> cin>>s;
cin>>p;
if((p!="v") && (p!="g"))
return 66;
int n;
cin>>n;
if (p=="g"){
<span> for(int i=0;i<n;i++)
</span><span> cout<<s;
</span> }
else
{
<span> for(int i=0;i<n;i++)
</span><span> cout<<s<<"\n";
</span> }
cin.get();
cin.get();
<span> return 0;
</span>}
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=Range(10,100,10).ToArray; a.Println;
Writeln('Ср.арифм.=',a.Average);
a[0]+=5; a[4]+=5; a[9]+=5;
a.Println
end.
<u><em>Тестовое решение:</em></u>
10 20 30 40 50 60 70 80 90 100
Ср.арифм.=55
15 20 30 40 55 60 70 80 90 105
programm p;
var n:integer;
begin
readln(n);
if n/4=int(n/4) then
begin
if (n/100=int(n/100))and(n/400<>int(n/400)) then
writeln('Не високосный') else
writeln('\Високосный';
end
else writeln('Не високосный')
end;
Var a,b:integer;
Begin
randomize;
a:=random(80001)-40000;
b:=random(80001)-40000;
if a>b then writeln(b,', ',a)
else writeln(a,', ',b);
End.