1. var
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.
#include <iostream>
using namespace std;
void bin(int n);
int main()
{
int n;
cout<<"Введи число в десятичной системе счисления\n";
cin>>n;
bin(n);
system("pause");
return 0;
}
void bin(int n)
{
int binn[15], ;
for(int i=14;i>=0; i--)
{
binn[i]=n % 2;
n=n/2;
}
for(int i=0; i<=14;i++)
{
cout<<binn[i];
}
cout<<"\n";
}
var c: array [1..20] of integer;
i,s1,s2: integer;
begin
s1:=0;
s2:=0;
for i:=1 to 20 do begin
write('Ввод значения для c[',i,'] - ');
readln(c[i]);
if i<=10 then s1:=s1+c[i] else s2:=s2+c[i];
end;
if s1>s2 then writeln('Сумма первых 10 элементов больше, чем последние 10 элементов')
else if s2>s1 then writeln('Сумма последних 10 элементов больше, чем первые 10 элементов')
else if s1=s2 then writeln('Первые 10 элементов равны последним 10 элементам');
end.
Рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)
Program Ulitka;
Var SunnyDay: Array [1..30] Of Boolean;
a, b, c, i: Integer;
Begin
WriteLn('a = ');
ReadLn(a);
WriteLn('b = ');
ReadLn(b);
b := b * 100;
Randomize;
For i := 1 To 30 Do
Begin
If Random(2) = 1 Then
SunnyDay[i] := True
Else
SunnyDay[i] := False;
End;
For i := 1 To 30 Do
Begin
If SunnyDay[i] = True Then
Begin
a := a + 2;
If a > b Then
a := b;
End
Else
Begin
a := a - 1;
If a < 0 Then
a := 0;
End;
End;
WriteLn('Дни месяца были таковы:');
For i := 1 To 30 Do Begin
If SunnyDay[i] = True Then
WriteLn(i, '. Солнечный')
Else
WriteLn(i, '. Пасмурный')
End;
WriteLn('К концу 30 дня местоположение улитки равно ', a, ' см над землей');
ReadLn;
<span>End.</span>
<span>Сколько бит видеопамяти занимает информация об одном пикселе на ч/б экране (без полутонов)?
ответ 1 бит</span>
пиксель = 1 точка
для черно-белого изображения (без полутонов) для одного пикселя подается либо 1 - включено либо 0 - выключено, всего 1 бит
<span> Какой объем видеопамяти необходим для хранения
четырех страниц изображения, если битовая глубина равна 24, а
разрешающая способность дисплея- 800 х 600 пикселей?
ответ 24*800*600 бит = </span><span>
11520000
</span>бит = <span>
1 440 000
</span>байт ( = 1,4 Мб )
то что в скобках - не уверен в точности