Решите 2 задачи в Паскале! Плииз! 1) Вывести на экран нарутальные числа от 1 до 100, которые при делении на 6 дают в остатке 4, и их
10-11 класс
|
колличество. Конец программы:
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
1)
var sumchis, i:integer;
begin
for i:=1 to 100 do begin
if i mod 6 =4 then
begin
writeln(i);
sumchis:=sumchis+1;
end;
end;
writeln('Колличество чисел', sumchis);
end.
2)
var sumchis, i:integer;
begin
for i:=1 to 10000 do begin
if i mod 17 =11 then
begin
writeln(i);
sumchis:=sumchis+1;
end;
end;
writeln('Колличество чисел', sumchis);
end.
Как сделать чтобы остаток равнялся B - не знаю, так как программа начинает считывать её как за переменную, если только B определить как переменную и в неё внести значение какое-то.
Другие вопросы из категории
Ответ равен 65536. Объясните решение.
1) геном.
2)Буква.
3)Слово
4)знак
100010012
100011002
110101112
111110002
а) мерой
в) качеством
с) уровнем звука
д) силой звука
Читайте также
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
Дана последовательность чисел. Вывести на экран все отрицательные числа.
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива