Задать вопрос!

Задать вопрос!

Все категории

Людмила Андреевна з [2]

4 года назад

7

Найти сумму первых 6 последовательных четных чисел по Турбо Паскалю

Информатика

1 ответ:

Юрий 2801 [17]4 года назад

0 0

Т.к. нам не задан откуда будет отсчет 6 чисел, будет задавать пользователь.

var
a,i,s:integer;
begin
s:=0;
readln(a);
for i:=a to a+11 do begin
if (i mod 2)=0 then
s:=s+i;
end;
writeln(s);
end.

Читайте также

Запишите в развернутой форме 1)1*2^5+0*2^4+0*2^+1*2^2+0*2^1+1*2^+1*2^-1 2)A*16^3+7*16^2+1*16^1+4*16^0+5*16^-1+7*16^-2 Какое числ

Одиночка по жизни

$1)1*2^5+0*2^4+0*2^3+1*2^2+0*2^1+1*2^0+1*2^-1= 100101,1_2\\ 2)A*16^3+7*16^2+1*16^1+4*16^0+5*16^-1+7*16^-2 = A714.57_{16}\\$

Какое число записано римскими цифрами ZZMCDXXV?

Нет такой римской цифры "Z".

MCDXXV = 1425

0 0

4 года назад

Валя шифрует русские слова, записывая вместо каждой буквы её код. А В Д О Р У 01 011 100 111 010 001 Некоторые цепочки можно ра

Ярославичев [1.2K]

Ответ: 100011111010, код может означать только слово "ДВОР"

0 0

4 года назад

Составить программу (Паскаль) построения на экране n прямоугольников разного цвета, расположенных хаотично.

Konstanta [3.7K]

uses graph;
var n,i,x,y,height,width:integer;
procedure init;
var gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
end;
procedure error;
begin
closegraph;
writeln ('error!');
end;
begin
write ('N = ');
readln (n);
randomize;
init;
if graphresult = 0 then
    begin
      for i:=1 to n do
        begin

          setcolor (random(14)+1);
          x:=random(640);
          y:=random(480);
          height:=random(91)+10;
          width:=random(101)+20;
          rectangle (x,y,x+width,y+height);
        end;
    end else error;
end.

0 0

4 года назад

Определи кол-во пикселей (суммарно). Запиши верный ответ. Разрешение монитора 640 на 200.

MeeQee [3]

640 * 200 = 128 000 пикселей

0 0

3 года назад

Форматирование диска - это

игорь19781978 [7]

Ответ:

Удаление всей информации с диска

0 0

4 года назад