Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
sergeenkoandre
26.03.2023 21:34 •
Информатика
Составить алгоритм вычисления по формуле: a=3,5 b=4,4 x=8,2 y=17,1
Z= x+y^2/ax+b
👇
Увидеть ответ
Открыть все ответы
Ответ:
Dashasvi
26.03.2023
Var
n, m, p, k, sum, x: integer;
s: string;
c, i: byte;
begin
write('Число: ');
read(n);
m := n;
k := 0;
while m <> 0 do
begin
p := m mod 10;
K := K + 1;
m := m div 10;
end;
Str(N, s);
c := 0;
for i := 1 to Length(s) do
if s[i] in ['0', '2', '4', '6', '8'] then
Inc(c);
x := n;
sum := 0;
while (x <> 0 ) do
begin
sum := sum + (x mod 10);
x := x div 10;
end;
writeln('Количество чисел: ', k);
writeln('Количество четных чисел: ', c);
writeln('Cумма чисел : ', sum);
end.
4,8
(33 оценок)
Ответ:
uchenik1988
26.03.2023
1)
program discuc;
uses crt;
var x,y,z,c,d,r,q,w:real;
begin
writeln ('введите x');
readln (x);
writeln ('введите y');
readln (y);
writeln ('введите z');
readln (z);
writeln ('введите c');
readln (c);
q:=sin(sqr(x));
d:=cos(x)/cos(exp(ln(x)*3));
w:=z/y*c;
r:=q+d+w;
writeln ('r=',r:5:2);
readkey;
end.
2)
program bibup;
uses crt;
var x,y,z,c,v,j:real;
begin
writeln ('введите x');
readln (x);
writeln ('введите y');
readln (y);
z:=(1/(sqr(x)))+1;
c:=sqrt(5);
v:=6.7*(sqr(y));
j:=z-c+v;
writeln ('j=',j:5:2);
readkey;
end.
Это если в Pascal Free
надеюсь это то
4,5
(87 оценок)
Это интересно:
Д
Дом-и-сад
11.07.2020
Как быстро и эффективно очистить вентиляционное отверстие для сушилки одежды?...
С
Стиль-и-уход-за-собой
13.07.2021
Как правильно мыть волосы: советы от профессионалов...
С
Стиль-и-уход-за-собой
29.07.2020
Как замаскировать прыщик с помощью зеленого консилера: советы и рекомендации...
К
Компьютеры-и-электроника
30.03.2020
Секреты изменения списка близких друзей Facebook на iPhone и iPad...
К
Компьютеры-и-электроника
04.03.2021
Как добавить фон на веб-страницу: простые шаги, которые помогут улучшить визуальное восприятие...
С
Стиль-и-уход-за-собой
27.10.2021
10 простых способов быть привлекательной...
К
Компьютеры-и-электроника
11.09.2020
Как сделать GIF анимацию из видео в Photoshop CS5: шаг за шагом...
К
Компьютеры-и-электроника
16.04.2022
Как играть онлайн в Words with Friends...
К
Кулинария-и-гостеприимство
09.04.2020
Сэндвич с беконом: легкий рецепт на каждый день...
Д
Дом-и-сад
09.06.2020
Как отмыть губку: простые и эффективные способы...
Новые ответы от MOGZ: Информатика
FreeSasha
09.01.2022
Бейсику-256. Сгенерировать случайное число а в промежутках а) [1; 99] б) [0:50], в) [50; 100]...
Катеринка228841
08.07.2022
Задание №10. «Правовое обеспечение информационной безопасности» Во Приведите основные законодательные и нормативные документы? 2. Каким образом можно их классифицировать?...
lenapanfilova0
18.10.2020
Ребят нужна по информатике (заплачу деньгами по 50грн. За одну работу) 9 класс нужно три работы...
taisia2305
02.10.2022
Матроскин купил Р пакетов молока и хочет разместить их на двух полках холодильника. На одну полку влезает не более 5 пакетов. Разработать программу, которая вводит...
davleeva
26.05.2020
ОЧЕНЬ Не понимаю информатику:((( Информатика, 8 класс...
лариса219
19.06.2022
Присвоить случайные значения одномерному массиву с 5 ячейками и вывести лишь те значения, которые будут больше 0....
awdrg12345
01.01.2020
Укажите самую большую величину :1024 бит, 1040 байт, 16 бит, 1 байт, 1 Кбайт...
zzzPhenomenalOnezzz
12.05.2023
Привет!! Можете с Алгеброй логики?! Обьясните что означают палочки выше переменых, позя-зязя...
PolinaCat29
17.04.2021
Написать программу, которая выводит на экран ваши ФИ, каждое слово – с новой строки Заранее...
petrov100469
18.07.2022
ОЧЕНЬ ИНФОРМАТИКА 8 КЛАСС!!...
MOGZ ответил
20 тон 35 кг : 5 = 20 м 35 см : 5=...
Пословицы и поговорки с корнями лаг-лож и раст-рос ....
Шылау. 1- нұсқа 1.үшін, туралы, жайлы шылаулары қай септіктен...
: скільки грамів осаду утвориться при дії хлоридною кислотою...
Бросишь греем учат подберем поделите умножить точит считаете...
№3: какое слово может быть только одной частью речи?...
Дана арифметическая прогрессия (аn). вычислите сумму 14 членов,...
Язык вставить is или are.the door on the right. the chairs near...
Формули всіх можливих ізомерів c5h10...
Сократите дроби и запишите из в виде десят- дробей 12/15...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
n, m, p, k, sum, x: integer;
s: string;
c, i: byte;
begin
write('Число: ');
read(n);
m := n;
k := 0;
while m <> 0 do
begin
p := m mod 10;
K := K + 1;
m := m div 10;
end;
Str(N, s);
c := 0;
for i := 1 to Length(s) do
if s[i] in ['0', '2', '4', '6', '8'] then
Inc(c);
x := n;
sum := 0;
while (x <> 0 ) do
begin
sum := sum + (x mod 10);
x := x div 10;
end;
writeln('Количество чисел: ', k);
writeln('Количество четных чисел: ', c);
writeln('Cумма чисел : ', sum);
end.