4 года назад

Составьте программу определяющую является ли введенное с клавиатуры целое число кратным 3

1 ответ:

0 0

Var a:integer;
begin
Writeln('Введите целое число');
Readln(a);
if frac(a/3) > 0 then writeln('Число не кратно 3')
else Writeln('Число кратно 3')
<span>end.

P.S. Frac - это дробная часть числа, в данном примере frac(a/3) это дробная часть числа а деленного на 3

</span><span>
</span>

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

Помогите решить 13 14 развернуто

Мурат02

Ответ:

№13

а). $1001_{8}$

б). $1130_{8}$

в). $3732_{8}$

№14

а). $201_{16}$

б). $258_{16}$

в). $7DA_{16}$

Подробное решение на фотографиях.

0 0

4 года назад

Определите значение переменной с после выполнения следующего фрагмента программы: b:=20; a:=40; a:=b-a/b; if

андрей8410

ОТВЕТ: 380
___________

0 0

4 года назад

На паскале нужно сделать. с клавиатуры вводится n элементов массива целых чисел вывести количество чисел которые попадаются в ди

Ирина2903

Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.

0 0

3 года назад

1 массив из 11 целых чисел формируется случайным образом в интервале от 5 до 45.Найти сумму четных элементов массива . 2 Сформир

агнлпоиол [20]

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

1)

begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.

2)

begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.

0 0

4 года назад

Помогите пожалуйста с информатикойочень срочно

AlexandraRU [2]

Индекс элемента массива - 6

0 0

4 года назад