В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Nataliaroy
Nataliaroy
27.05.2022 09:46 •  Информатика

2. Написать блок-схему вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% - если сумма больше 1000 руб., и 10% - если сумма больше 5000 руб

Показать ответ
Ответ:
hzzzkzn99
hzzzkzn99
07.11.2021 13:20
Var n,m,head,eye: integer; -объявили переменные целого типа
begin - начала программу
writeln('сколько лет вашему дракону?'); - вывели фразу 'сколько лет вашему дракону?' на экран
readln(n); - считали введенную переменную n и перевели каретку на новую строку
head:=1; - присвоили значение
eye:=2; - присвоили значение
for m:=2 to n do - перебираем m от 2 до n
if m<=100 then head:=head + 3 -считаем головы
else head:=head + 2; -счиаем головы
eye:=head*2; - считаем глаза
writeln('голов',head,'глаз',eye); -выводи результат
end.
0,0(0 оценок)
Ответ:
Saint228
Saint228
17.02.2023 16:04
1) а) на Java
class example{
    public static void main (String[] args){
        int k = 0, j = 0;
        for (int i = 0; i < 10; i++){
            k = k + 5;
            j = j + k;
            if (i == 9)
            System.out.print(k);
            else
            System.out.print(k + " + ");
        }
        System.out.print(" = " + j);
    }
}
б) на Pascal
var a,b,c:integer;
begin
for a:=1 to 10 do
begin
b:=b+5;
c:=c+b;
if (a = 10) then write(b)
else write(b, ' + ')
end;
write(' = ', c);
end.
2) а) на Java
class example{
    public static void main(String args[]){
        for (int x = 50; x >= 40; x--){
        double y = (5 * x) + (Math.pow(x, 2));
        int i = (int) y;
        System.out.println(i);
        }
    }
}
б) на Pascal
var y:real;
x:integer;
begin
for x:=50 downto 40 do
begin
y:=(5*x)+sqr(x);
writeln(y:0:0);
end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота