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

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

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

1 год назад

14

Составить алгоритм и написать программу для задачи:

заменить нулями элементы массива, которые меньше вводимого с клавиатуры числа R.

Информатика

1 ответ:

боров1 год назад

0 0

Прога в приложении ============

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

Ребята, помогите, пожалуйста)1) Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал но

Олег Геннадьевич

1. uses crt;
var k:integer;
a:real;
begin
clrscr;
a:=10;
k:=1;
while a<=20 do
      begin
      a:=a+a*10/100;
      k:=k+1;
      end;
writeln ('Норма превысит 20 км на ',k,' день');
end.

2.
uses crt;
var k:integer;
m:array [1..15] of real;
begin
clrscr;
m[1]:=0.1;
m[2]:=0.1;
for k:=3 to 15 do
    begin
    m[k]:=m[k-1]+m[k-2];
    end;
for k:=1 to 15 do
writeln (k:3 ,' день',m[k]:8:1,' кг');
end.

0 0

3 года назад

Как закодировать слово молоко по информатике

НКуу

Молоко - 11101100
11101110
11101011
11101110
11101010
11101110

0 0

4 года назад

Заполнить массив из 30 элементов случайными целыми числами. Вывести те значения элементов, которые кратны 5.

Anna Karenina

Program n1;
var a: array[1..30] of integer;
i: integer;
begin
randomize;
for i:=1 to 30 do
begin
a[i]:=random(30)+1;
if a[i] mod 5=0 then write(a[i],' ');
end;
end.

0 0

4 года назад

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

Однажды алхимику удалось в одном сосуде собрать и смешать 8 слезинок саламандры. У него есть два пустых флакона объёмом 2 и 3 сл

Ирина Бологова [219]

Выливаем с 8 в 2, после чего с 2 в 3, а затем с 8 в 2. Таким образом в начальной колбе остаеться 4.

0 0

3 года назад

Помогите пожалуйста. Нужно ввести 2 числа, вычислить сумму чисел и их произведение.вывести на экран большее значение

Аида22

Var a, b, c, d:integer; begin Readln (a, b); C:=a+b; d:=a*b; writeln ('сложение ',с,'произведение',d); if c>b then writeln ('Большесумма') else ('больше произведение); End.

0 0

4 года назад