Помогите с программами по ПАСКАЛЮ!! 1)Дано натуральное число n. Составьте программу, которая определяет сколько цифр
этого числа кратны 3. ______________________________________________________- 2)Даны натуральные числа n, a1,...an.Составьте программу, которая определяет количество членов последовательности a1,...an, являющихся нечетными числами.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Лерен
1.
Program kjh;
var
n, s, k, f: integer;
begin
writeln('Введите число n');
readln(n);
repeat
f:=n mod 10;
if f mod 3=0 then k:=k+1;
n:=n div 10;
if n=0 then s:=1;
until s=1;
writeln('Цифр, кратных 3: ',k);
readln;
end.
2.
Program ert;
var
A: array [1..100] of integer;
i, kol: integer;
begin
Writeln('Введите число элементов массива');
readln(n);
for i:=1 to n do A[i]:=random(1000);
for i:=1 to n do if A[i] mod 2=1 then kol:=kol+1;
writeln('В последовательности ',kol,' нечетных элементов');
readln;
end.
Program kjh;
var
n, s, k, f: integer;
begin
writeln('Введите число n');
readln(n);
repeat
f:=n mod 10;
if f mod 3=0 then k:=k+1;
n:=n div 10;
if n=0 then s:=1;
until s=1;
writeln('Цифр, кратных 3: ',k);
readln;
end.
2.
Program ert;
var
A: array [1..100] of integer;
i, kol: integer;
begin
Writeln('Введите число элементов массива');
readln(n);
for i:=1 to n do A[i]:=random(1000);
for i:=1 to n do if A[i] mod 2=1 then kol:=kol+1;
writeln('В последовательности ',kol,' нечетных элементов');
readln;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
