В Pascal ABC с помощью циклического алгоритма FOR нужно решить: 1) Найти количество чисел от a до b, делящихся без остатка на 3 и 4
10-11 класс
|
одновременно.
2) Вывести все двузначные числа, в записи которых есть цифра N. Включить проверку на то, что N является однозначным числом.
var a,b,i,n:integer;
Begin
read(a,b);
for i:= a to b do
if i mod (3*4) = 0 then n:=n+1;
writeln(n);
End.
var n,i:integer;
Begin
for i:= 1 to 99 do begin
if (i div 10 <> 0) and ((i div 10 = n) or (i mod 10 = n)) then
write(i,' ');
end;
End.
Другие вопросы из категории
колличество. Конец программы:
SumChis :=0;
for i:1 to 100
if i mod 6 = 4 then
begin
writeln (i);
SumChis :=SumChis +1;
end.
Написать надо начало программы!
2) Написать программу, которая выводит натуральные числа до 10 000 включительно, которые при делении на 17 дают остаток 11 или B
Ответ равен 65536. Объясните решение.
1) геном.
2)Буква.
3)Слово
4)знак
Читайте также
var A: array [1..20] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 20 do
begin
A[i]:=random(100);
write (' ',A[i] ');
end;
for i:=1 to 20 do
if imod2>0 then
s: = a[i]*a[i];
writeln;
writeln('s=',s);
readln;
end.
генератором случайных чисел (от 0 до 100) задан массив из 20 целых
чисел.составьте программу, с помощью которой напечатайте на одной
строчке исходный массив, а на следующей строке - сумму квадратов
элементов с начетными индексами
var
i,N:integer;
begin
writeln('Vvedite N');
readln(N);
for i:=1 to n do
if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0)then writeln(i);
readln
end.
Данная программа выдает все числа, от 1 до заданного (n), которые не делятся без остатка на 2,3,5. что нужно исправить, чтобы программа выдавала только количество этих чисел.
Заранее спасибо.