1)
#include <iostream>
using namespace std;
int main()
{
for(int i=-10;i<=10;i++)
{
cout<<"x="<<i<<" - y="<<i*i-1<<endl;
}
system("PAUSE");
return 0;
}
2)
#include <iostream>
using namespace std;
int main()
{
float i=-10;
while(i<=10)
{
cout<<"x="<<i<<" - y="<<i*i-1<<endl;
i+=0.1;
}
system("PAUSE");
return 0;
}
Pascal
1)
var
i:integer;
begin
for i:=-10 to 10 do begin
wrtite('x=');
wrtite(i);
wrtite(' - y=');
wrtiteln(i*i-1);
end;
end.
2)
var
i:real;
begin
i:=-10;
while not (i>10) do begin
wrtite('x=');
wrtite(i);
wrtite(' - y=');
wrtiteln(i*i-1);
i:=i+0.1;
end;
end.
Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
var
a: array [1..4] of string;
s: string := 'бвгджзйклмнпрстфхцчшщъь';
i, j: byte;
begin
for i := 1 to 4 do
readln(a[i]);
for i := 1 to 4 do
for j := 1 to length(a[i]) do
delete(s, pos(a[i][j], s), 1);
writeln();
writeln(s);
end.
>котики
>это
>несказанное
>добро
>вгжйлмпфхцчшщъь