1. Заполнить массив с именем B с клавиатуры. Количество элементов массива – 8 2. Заполнить массив с - id1222226420230522 от AMANBEKBERDIMURAT 22.05.2023 20:06

Question

Информатика: 1. Заполнить массив с именем B с клавиатуры. Количество элементов массива – 8 2. Заполнить массив с именем С одним числом (это число 13). Количество элементов массива – 100 3. Заполнить массив с именем D рядом чисел (5, 15, 25, 35….95) Количество элементов массива посчитать самостоятельно 4. Заполнить массив с именем L случайными числами в диапазоне от 0 до 200. Количество элементов массива – 5

AMANBEKBERDIMURAT · Accepted Answer

1)
var a:string;
i, o: Integer;
p: Real;
begin
readln(o);
a := inttostr(o);
for i := 1 to length(a) do
p := p + strtoint(a[i]);
if (sqr(o) = p*p*p) then writeln('true')
else writeln('false');
end.

2)
var a:string;
i, o, p: Integer;
begin
readln(o);
a := inttostr(o);
for i := 1 to length(a) do
p := p + strtoint(a[i]);
if (p mod 3 = 0) then writeln('true')
else writeln('false');
end.

3)
var a, b, c: real;
begin
readln(a, b, c);
if ((a = b) and (b = c)) then writeln('true')
else writeln('false');
end.

Всё проверено, удачи:)

MOGZ ответил