Var x:integer;
begin
writeln('x=');
readln(x);
if (x mod 7=0) and ( x mod 2<>0) then writeln(' cislo neciotnoe i kratno semi ')
else
writeln('cislo ciotnoe i nekratno semi ');
readln;
end.
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.
В стандартной кодировке KOI-8 символ размещается в одном байте.
На строку потребуется 70х1=70 байт.
На страницу - 30х70=2100 байт
На весь текст - 5х2100=10500 байт.
Ответ: 10500 байт
Замечание: Если кодировка двухбайтная (UNICODE), все числа следует удвоить.
4 бита на цвет и 7 бит на адрес клетки (6бит - 64 клетки, 7 бит- 128)
итого 11 бит=1 байт 3 бита