Сколько ячеек содержит связной диапазон А2: В3?

Знания

Информатика

1 ответ:

Гаяне-4 года назад

0 0

четыре (4)

ттттттттттт

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

1. Дана сторона квадрата a. Найти его периметр P и площадь S.Справка: P = 4∙a, S = a2.

Ник56

Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.

0 0

4 года назад

Мудрунчик полюбляє їсти цукерки.Друзі склали для нього алгоритм

Мария Белая [1]

Знайти цукерки, пакет покласти на стіл, відкрити пакет з цукерками, взяти 1 цукерку , відкрити її , з'їсти цукерку.

0 0

4 года назад

Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). Требуется умножить отрицательные значения элементо

inkognito [98]

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a.Transform(t->t<0?t*20:t); a.Println
end.

Пример
n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92

0 0

3 года назад

Прочитать ещё 2 ответа

Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 Вообщем если не понятно, т

Сергей1959москва

Var A,B:array[1..17] of integer;
i:byte;
begin
for i:=1 to 17 do
read(a[i]);

for i:=1 to 17 do
if odd(i) then
begin
  b[i]:=a[i];
  write(b[i],' ');
end;

for i:=1 to 17 do
if not odd(i) then
begin
  b[i]:=a[i];
  write(b[i],' ');
end;
end.

0 0

4 года назад

Для чего нужен отступ слева при наборе текста

Иван 05 12 85 [3]

Чтобы принтер мог пропечатать всё. Если бы отступа не было, часть текста была бы не видна или принтер весь был бы в чернилах.

0 0

3 года назад