Составьте программу вычисления суммы всех положительных двухзначных чисел, кратных 8

Var s,i: integer; begin s: =0; for i: =10 to 99 do begin if (i mod 8 = 0) then s: =s+i; end; writeln (s); end.

print ('Добро в магазин "Магнит"')

# Форматированный вывод

print (''' Творог - номер 401, цена за пачку - 100 руб.

Молоко - номер 402

Йогурт - номер 403

Сметана - номер 404

Мороженое - номер 405

Колбаса - номер 501

Ветчина - номер 502

Паштет - номер 503

Стейк - номер 504

Пельмени - номер 505

Фасоль - номер 601

Тунец - номер 602

Маслины - номер 603

Ананасы - номер 604

Оливки - 605'''

)

n = 1

number_product = 0

price_product = 0

count_product = 0

total_sum = 0

check = ''

while n < 10:

print ( 'Введите через пробел номер, цену, количество купленного товара №{}'

. format(n))

number_product, price_product, count_product = map(float, input().split())

if number_product < 0 or price_product < 0 or count_product < 0:

break

else:

if 400 <= number_product <= 405:

temp_price = price_product * count_product - 0.5

elif 500 <= number_product <= 505:

temp_price = price_product * count_product * 0.7

elif 600 <= number_product <= 605:

temp_price = price_product * count_product * 0.85

total_sum += temp_price

total_sum_not_sale += price_product * count_product

check += f'''{number_product}, price - {price_product}, count - {count_product}

all_price - {temp_price} \n'''

n+=1

print(check)

print(f'Итог: {total_sum_not_sale}')

print(f'Скидка: {total_sum_not_sale - total_sum}')

print(f'К оплате : {total_sum}')

Объяснение:

uses crt;

var i,j,k,n,s,s1: integer; a: array[1..5,1..10] of integer; beginrandomize; for i: =1 to 5 dofor j: =1 to 10 doa[i,j]: =random(10)+1; for i: =1 to 5 dobeginwriteln(' '); for j: =1 to 10 dowrite(a[i,j], ' '); end;

 

2-3 uses crt;

var i,j,k,n,s,s1: integer;

b: array[1..10] of integer; beginrandomize;

//prog 2 for i: =1 to 10 do begin b[i]: =random(10)+1; if i mod 2 =0 then s1: =s1+b[i]; write(b[i],' '); end; writeln(' vvedite k and n '); readln(k,n); for i: =k to n do s: =s+b[i]; writeln('suma = ',s); writeln('suma chetnyh ',s1); readln; end.

4..

uses crt;

var i: integer;

a: array[1..10] of integer; beginrandomize; for i: =1 to 10 do a[i]: =random(10)-7; for i: =1 to 10 do write(a[i],' '); writeln; for i: =10 downto 1 do write(a[i],' '); readln; end.