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.
Чётное число — целое число, которое делится на 2 без остатка: …, −4, −2, 0, 2, 4, 6, 8, …
Нечётное число — целое число, которое не делится на 2 без остатка: …, −3, −1, 1, 3, 5, 7, 9,
Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
===== PascalABC.NET =====
begin
Writeln('Плотность равна ',
ReadReal('Задайте массу, кг:') /
ReadReal('Задайте объем, м^3:'):0:1, ' кг/м^3')
end.
Значения плотностей составят:
а) 8900 кг/м³
б) 7100 кг/м³