М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sofiya113
sofiya113
08.12.2021 17:02 •  Информатика

составить программу на языке паскаль среди двузначных нечётных чисел подсчитать количество тех сумма цифр которых кратна трем ответ

👇
Ответ:
влад2314
влад2314
08.12.2021

var i,k,d,e,s:integer;

begin

k:=0;

for i:= 10 to 99 do

if i mod 2 = 1 then

begin

d:=i div 10;

e:=i mod 10;

s:=d+e;

if ((s mod 3) = 0) then

k:=k+1;

end;

writeln(k);

end.

4,7(83 оценок)
Открыть все ответы
Ответ:
MaryWintlstone
MaryWintlstone
08.12.2021

Объяснение:

program Kvadratnoe;

var a,b,c,d,x,y1,y2: real;

begin

writeln(' Решение квадратного уравнения ');

write(' Введите а = ');

readln(a);

write(' Введите b = ');

readln(b);

write(' Введите c = ');

readln(c);

d:=SQR(b)-4*a*c; //находим дискриминант

writeln(' d = ',d);

//Проверка значения дискриминанта

if d=0 then

begin

x:=-b/2*a;

writeln(' Х = ',x);

end

else

if d>0 then

begin

y1:=(-b-SQRT(d))/2*a;

y2:=(-b+SQRT(d))/2*a;

writeln(' Х1 = ',y1,' X2 = ',y2);

end

else writeln(' Нет корней ');

end.

4,8(75 оценок)
Ответ:
мишка4543
мишка4543
08.12.2021

Здравствуйте!

Зовут меня Алексеева Ольга Вячеславовна, но друзья обычно называют меня Оленькой. У меня много хобби  и пристрастий: я люблю заниматься вышивкой гладью и вязанием на спицах, люблю читать, преимущественно детективы. Моя любимая книга детективного жанра - "Приключения Шерлока Холмса" Сэра Артура Конан Дойля. Еще я получаю огромное удовольствие от просмотра документальных фильмов. Больше всего мне нравится исторический сериал "Великая". Помимо этого я питаю слабость к классической музыке. Я восхищаюсь и с наслаждением слушаю Шопена и симфонии Моцарта. А что касается стиля в одежде - то здесь я предпочитаю удобный стиль "Кэжуал".

за внимание!

4,6(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ