Составьте блок схемы для решения следующих задач:

1) Составьте блок-схему алгоритма y=5x+b при x>b и y=5b+x при других x.

2) Если а>7, то найдите сумму b и c, иначе - найдите их разность.

3) Рост Маши - a см, Вити - b см. Определите, кто из них выше.

4) Книга стоит d руб., журнал h руб. У покупателя денег S руб. Хватит ли их на 3 журнала и 2 книги?

5) Сколько денег должен сдать сдачи продавец ( или спросить еще) за покупку k журналов по a руб. и h книг по b руб., если покупатель дает S руб.?

6) Успеет ли пассажир доехать за M часов до города, расположенного за S км на автомобиле, который едет со скоростью 60 км/ч?

👇

Открыть все ответы

Ответ:

shurik23021983

26.01.2022

Алгоритм приготовления яичницы:

1.НАЧАЛО
2.Взять чистую сковороду
3.Поставить сковороду на огонь.
4.Налить немного масла
5.Если масло разогрелось, то перейти к шагу 8
6.Подождать 2 минуты
7.Перейти к шагу 5.
8. Разбить на сковороду 3 яйца
9. Уменьшить огонь до минимума
10. Посолить яичницу
11. Накрыть сковороду крышкой (я люблю прожаренные и сверху)
12. Подождать 7 минут.
13. Снять сковороду с огня.
14. Выложить яичницу на тарелку.
15. Положить на тарелку по вкусу майонез, лук, колбасу и проч.
16. Приятного аппетита!
17. КОНЕЦ

4,7(38 оценок)

Ответ:

jansayabektasova

26.01.2022

Задание №1

var s,v,t,a:real;
begin
writeln('Введите скорость, ускорение и время соотвественно');
read(v,a,t);
s:=v*t+(a*sqr(t))/2;
writeln('Расстояние S = ',s);
end.

Задание №2

var a,b,c,d,m,n:integer;
begin
writeln('Введите ширину и высоту комнаты');
read(a,b);
writeln('Введите размеры окна');
read(c,d);
writeln('Введите размеры двери');
read(m,n);
writeln('Площадь стен для оклеивания обоями = ',a*b-c*d-m*n);
end.

Задание №3

var a,b:real;
begin
writeln('Введите два числа');
read(a,b);
writeln('Среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);
writeln('Среднее геометрическое модулей этих чисел = ',sqrt(abs(a*b)));
end.

Задание №4

var x:real;
begin
writeln('Введите ребро куба');
read(x);
writeln('Площадь грани = ',sqr(x));
writeln('Площадь полной поверхности = ',6*sqr(x));
writeln('Объем куба = ',power(x,3));
end.

Задание №5

var r1,r2:real;
begin
writeln('Введите внешний и внутренний радиус');
read(r1,r2);
if r1<r2 then writeln('Внешний радиус должен быть больше внутреннего') else
writeln('Площадь кольца = ', Pi*sqr(r1)-Pi*sqr(r2));
end.

4,6(99 оценок)

Это интересно:

Образование-и-коммуникации

09.03.2021

Как титровать: правила и методы...

Кулинария-и-гостеприимство

23.04.2021

Как размораживать рыбу: советы от профессионалов...

Дом-и-сад

27.06.2020

Как очистить домашний вентилятор: простые способы...

Кулинария-и-гостеприимство