Хэлп по инфе пожалуйста!
5-9 класс
|
var a,s,n:integer;
begin
a:=0; s:=0; n:=1;
while (n <> 0) and (a<=100) do
begin
read(n);
a:=a+1;
if n>300 then write('Oшибка! Чсло не должно превышать 300')
else
begin
if (n mod 3 = 0) and (n mod 10 = 9) then s:=s+n; end;
end;
write(s);
end.
Другие вопросы из категории
Миг...(7слов)век Море...(6 слов)суша Пожалуйста!!!!!!!!!!!!!!!!!!!
Задание в фотографиях. Если что не четко, спрашивайте.
Заранее ОГРОМНОЕ СПАСИБО!!!
Читайте также
Сформулируйте и выведите на экран массив из девяти элементов,каждые три составлены по следующему правилу:1й равен трехзначному числу;2й равен текущему индексу,увеличенному в 10раз;3й равен сумме двух предыдущих элементов.
кол-во положительных, отрицательных и нулевых значений "
Известно, что коды прописных (заглавных) букв латинского алфавита следуют в таблице непрерывно друг за другом. Коды строчных букв латиницы также следуют непрерывно друг за другом на расстоянии 32 символов от прописных (ниже по таблице) .
Если ord('A') = 65, то ord('A')+32 = 97, и это код строчной буквы «а» , то есть chr(ord('A')+32) = 'а'.
разложить на пятерки и тройки. Вывести разложение. Спасибо заранее:)
рецепт
г)перечень обязонностей дежурного по классу
Пожалуйста помогите!