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

4 года назад

Дано описание массива: consta:array[1..3]of integer=(12,7,58); Верно ли описан массив?

Знания

Информатика

1 ответ:

Mix82 [13]4 года назад

0 0

Только пробел между const и a надо поставить

<span>const a:array[1..3]of integer=(12,7,58);
тогда правильно </span>

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

При раскопках археологи нашли глиняную табличку со след символами...

Diana nurminen [1]

Ответ:

мамгюка

Объяснение:

--.-----...---.-.-

м а м г ю к а

0 0

4 года назад

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

Срочно !Дано число N. Вычислите сумму цифр этого числа, которые не делятся на 4. Язык Паскаль

Elle Driver

var i, sum:integer;

n:string;

begin

readln(n);

for i:=1 to length(n) do begin

if StrToInt(n[i]) mod 4 <> 0 then

sum:=sum+StrToInt(n[i]);

end;

writeln(sum);

end.

0 0

4 года назад

Составить программу, которая формирует массив из 27 случайный чисел от -10 дл 15 и нечетные числа заменяет на 3, остальные умень

ascold [14]

const n=27;

var a:array [1..n] of integer;

i:integer;

begin

write(' Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(26)-10;

write(a[i]:3,' ');

if a[i] mod 2 <> 0 then a[i]:=3

else a[i]:=a[i]-3//уменьшает на 3,т.к. при уменьшении в 3 раза получается тип real, тут или второй массив создавать или взять a[i]:=a[i] div 3 (целочисленное деление)

end;

writeln;

write('Преобразованый массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.

0 0

4 года назад

Найди и отметь лишнее устройство в группе: мышь световое перо тачпад джойстик клавиатура срочноооо

elite38

клавиатура, тк это ввод символов, а не управление указателем

0 0

4 года назад

Напишите программу для задачи: определить сумму цифр трехзначного числа кратных 4 На языке Паскаль!

Dariadna [362]

<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>

begin

ReadInteger('n->').ToString.JoinIntoString(' ').ToIntegers

.Where(t -> t mod 4 = 0).Sum.Println;

end.

0 0

3 года назад