Напишите программу, позволяющую ввести 9 элементов, кратных 3. (через IF). Паскаль. Массив.

Знания

Информатика

1 ответ:

chinaopen [370]4 года назад

0 0

var arr: array [1..9] of integer;

i, num: integer;

begin

i := 1;

while (i <= 9) do

begin

readln(num);

if (num mod 3 = 0) then

begin

arr[i] := num;

i := i + 1;

end;

end.

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

Помогите пожалуйста с Паскалем! Очень нужно! 1. С клавиатуры вводится натуральное число n. Найдите и выведете самую большую цифр

вдлцд

Программа выводит максимальную цифру числа:
Program maxx;
uses crt;
var x,max:integer;
begin
write('введите число x=');readln(x);
max:=0;
while x>0 do
begin
if max<(x mod 10) then max:=(x mod 10);
x:=x div 10
end;
writeln('max=',max);
end.

0 0

4 года назад

Составь ребус на слова редактирование и форматирование

llisa21

Вот картинка навсякий случи пажалуйста

0 0

2 года назад

Как обозначается в программировании КУБИЧЕСКАЯ СТЕПЕНЬ???????

САМУРАЙ

X*x*x или
sqr(x)*x, sqr - возведение в квадрат

0 0

4 года назад

Помогите СРОЧНО! 1. Определите значение целочисленных переменных x, y и t после выполнения фрагмента программы: x := 5; y := 7;

Алчик

1. x=2 y=5 t=5
2. a=3 b=3
3. a=4683 b=4680
4. b=189 a=71
5. b=17 a=9
6. b=19 a=11
7. b=14 a=7

0 0

4 года назад

Заполните массив случайными числами в интервале [100..999] и переставьте их по возрастанию суммы цифр.

StepAlen

Const dlin = 100;
var b:array[1..dlin,1..2] of integer;
 i,j,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to dlin do
begin
b[i,1]:=random(800)+100;
write(b[i,1],' ');
b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;
end;
writeln;

for i:=1 to dlin-1 do
for j:=dlin-1 downto i do
 if b[j,2]>b[j+1,2] then
begin
x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x;
x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x;
end;

writeln('Отсортированный массив:');
for i:=1 to dlin do
 write(b[i,1],' ');

end.

0 0

4 года назад