Пожалуйста помогите!Напишите программку, которая в последовательности целых чисел определяет
Пожалуйста помогите!
Напишите программу, которая в последовательности целых чисел определяет число отрицательных трехзначных чисел, кратных 3 и оканчивающихся на 6.
программка должна вывести одно число - число отрицательное трехзначных чисел кратных 6 и заканчивающихся на 3.
Признаком конца ввода чисел - ввод 0.
Пример работы программки:
Входные данные Выходные данные
-186 1
-36
36
186
0
Регина Кипариси
Сколько чисел в последовательности?
Toha Skidinov
Входные данные
Камилла Алалыкина
Входные данные -186, -36, 36, 186, 0, выходные данные только 1
2 ответа
Siketin Alesha
Var
A,k:integer;
Begin
k:=0;
Read(A);
While Alt;gt;0 do
Begin
Read(A);
if (Alt;-99)and(Agt;-1000)and(A mod 3 = 0)and(A mod 10 = -6) then
k:=k+1;
End;
WriteLn(k);
End.
A,k:integer;
Begin
k:=0;
Read(A);
While Alt;gt;0 do
Begin
Read(A);
if (Alt;-99)and(Agt;-1000)and(A mod 3 = 0)and(A mod 10 = -6) then
k:=k+1;
End;
WriteLn(k);
End.
Полина Строна
На что можно поменять repead...until ?
Леонид Жнивин
Цикл repeat можно поменять на while
Павел Аль-Габбан
Спасибо
Шепилло
Иван
Переработать программку ?
Семик
Var a, k:integer;Begink:=0;while k<>0 doRead(a);if (A>99)and(A<1000)and(A mod 3 = 0)and((A mod 10 = 6)or(A mod 10 = -6)) then k:=k+1; a = 0;Writeln(k);End.
Артём Баразновский
Где-то ошибка
Мишаня Ахронов
Обновите страничку
Таисия Маханева
Поправил программку.
Илья Лапыко
Спасибо!
Ирина Лучовкина
include lt;iostreamgt;
include lt;cmathgt;
using namespace std;
int main()
int a, c = 0;
for(cingt;gt;a; a!=0;
c+=(alt;0 amp;amp; !абс(a/1000) amp;amp; abs(a/100) amp;amp; !абс(a%3) amp;amp; абс(a%10)==6),
cin gt;gt; a);
cout lt;lt; c lt;lt; endl;
include lt;cmathgt;
using namespace std;
int main()
int a, c = 0;
for(cingt;gt;a; a!=0;
c+=(alt;0 amp;amp; !абс(a/1000) amp;amp; abs(a/100) amp;amp; !абс(a%3) amp;amp; абс(a%10)==6),
cin gt;gt; a);
cout lt;lt; c lt;lt; endl;
Альбина
Ого, это очень сложно, но если этот ответ правильный, то ты гений.
Денис Мозганов
нетрудно и ничуть не отличается от ответа выше)
Arsenij Kuljushkin
Я новичок в этом
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов