Pascal
10-11 класс
|
Найти сумму всех двухзначных чисел, которые кратны трём.
uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
end.
uses crt;
var ,c,k:integer;
begin c:=0;
for k:=10 to 99 do
if (k mod 3=0) then c:=c+k;
write(c);
end.
вводить массив?
Всех до какого или до бесконечности
У нас бесконечно много двузначных цифр? :)
Ахах дауж это я ожёг
ахах я тож не внимательно прочитал)
Другие вопросы из категории
вот программа:
язык программирования: паскаль
алфавита, цифр, русских букв и знаков препинания. Вырезать из строки цифры и
записать их а отдельную строку в том же порядке, в каком они были расположены в
исходной. Вывести на печать содержимое полученных строк.
Входные данные: исходная строка
Vv1, 32qq1/4b5b45!
5%, а урожайность на 2%. Определите в каком году площадь участка станет больше 120 гектар
Читайте также
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
формул языка Pascal сделать так, чтобы случайные числа выпадали в интервале (a;b)
У нас на первом курсе тема Pascal, а я гляжу на него как баран на новые ворота...
Я отстал сильно на 2 недели и ни могу ни как понять его... Скажите пожалуйста по конкретнее с чего начать, что именно нужно изучить или выучить, понять, чтобы знать как составлять на нём программы ?
получить от 5 до 15 баллов (Сгенерить случайные числа
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.