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

Блок-схема,цикл знайти суму перших десяти парних чисел

👇
Ответ:
protivnuy
protivnuy
15.02.2022
Program one;var i, n: integer;
begini:=0;n:=10;while n <> 0 dobegininc(i, n);dec(n);end;write('Сумма первых 10 чисел = ', i); 
end.
4,7(28 оценок)
Открыть все ответы
Ответ:
sofia2204
sofia2204
15.02.2022

program F;

var F, A, B, C, x: real;

begin

read (A, B, C);

if B>C then x:=(B+C)

else if B=C then x:=(sqr(B));

F:=(A*x*x*x);

end.

Примечание: строчка «read (A, B, C)» означает ввод с клавиатуры значений А, В, и С. Если это не нужно, то её можно убрать (в этом случае программу невозможно будет выполнить на компьютере, ведь он не будет знать, чему равны А, В и С и не сможет производить над ними действия).

Также если требуется вывести получившееся значение F на экран, перед строчкой «end» нужно добавить строчку («writeln (F)».

Блок-схема в приложенном фото.


Составить блок-схему и программу на языке паскаль
4,5(87 оценок)
Ответ:
Vladislava111111111
Vladislava111111111
15.02.2022

#include <iostream>

using namespace std;

int main()

{

int i,n,n2=0,n3,digit;

cin >> n; //Вводим число. Может быть отрицательным.

n3 = abs(n); //Для удаления цифр нужно положительное число

i = 1; //Переменная для количества десятков.

while(n3>0) { //Условия для выполнения цикла

 digit = n3 % 10; //Получаем последнюю цифру

 n3 = n3 / 10; //Уменьшаем число

 if(digit!=3 && digit!=6){ //Проверка цифры

  n2 = n2 + digit * i; //Создаем число умножая на десятки

  i = i * 10; //Добавляем десятки

 }  

}

cout << ((n<0)?-n2:n2); //Вывод результата с добавление знака

}

Объяснение:

Есть цикл While

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