Умоляю помогите пожалуйста!!! Может кто уже делал...

Знания

Информатика

1 ответ:

Pekaiaka3 года назад

0 0

Что-то такое? Видимо для этого нужны значения переменных.

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

Объявлен набор в школьную баскетбольную команду.известен рост каждого из n учеников желающих попасть в эту команду. составьте ал

виктет [14]

Program enot;
Var A: array[1..50] of integer;
i,k:integer;
begin
for i:= 1 to 50 do
a[i]:= random(51)+150;
k:=0;
for i:= 1 to 50 do
if a[i]>170 then k:=k+1;
writeln(k);
end.

0 0

4 года назад

Помогите решить в turbo pascal.Вывести на экран все двухзначные числа в которых старшая цифра отличается от младшей не больше че

kuka7997

Var
i : Integer;
begin

for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then Writeln(i);

 Readln;
end.

0 0

4 года назад

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

В слове ГЕОЛОГИЯ все гласные буквы заменили на те, что идут в слове перед ними. Какие буквы присутствуют в полученной последоват

Рыба-печень [487]

Буква Е
Помоему получится ггеллггя

0 0

3 года назад

Помогите пожалуйста даю 30 балов !!!!

Анна3006 [19]

1. человек , робот

2. 1,2

3. надо записи посмотреть

0 0

4 года назад

Сдав доклад по информатике на «отлично», ученик перенёс папку, полный путь до которой был С:\Учёба\Информатика\Состав_ПК, в папк

Slastena63 [7]

D:\Архив\Состав_ПК\Основные устройства_ПК.doc

0 0

1 год назад