ВРЕМЯ НА ТАПСЫРМА ВЫПОЛНЕНИЕ: No 1 08:30 ТАПСЫРМАНЫҢ МӘТІНІ Интернетте жұмыс жасау үшін жергілікті жедел - id2045282920211201 от обгрейд 01.12.2021 08:26

Question

Информатика: ВРЕМЯ НА ТАПСЫРМА ВЫПОЛНЕНИЕ: No 1 08:30 ТАПСЫРМАНЫҢ МӘТІНІ Интернетте жұмыс жасау үшін жергілікті жедел жад көлемін анықта 1616 4Гб 3216 8Гб бар ма жаубы керек боп тұр

обгрейд · Accepted Answer

На PascalABC.NET program aaa; const n=50; var w, c, x, d10, d4, d1: integer;  begin    writeln ( Введите вес бандероли );   readln (w);   if w = n     then c:=10     else          if w mod n = 0           then c:=10+((w div n)-1)*5           else c:=10+5+((w div n)-1)*5;     d10:= c div 10;   d4:= (c-10*d10) div 4;   d1:= (c-d10*10-d4*4);     writeln ( стоимость бандероли: ,c, драхм );   writeln;   writeln ( для оплаты нужно не менее );   writeln (d10:10, монет по 10 драхм );   writeln (d4:10, монет...

ВРЕМЯ НА ТАПСЫРМА ВЫПОЛНЕНИЕ: No 1 08:30 ТАПСЫРМАНЫҢ МӘТІНІ Интернетте жұмыс жасау үшін жергілікті жедел жад көлемін анықта 1616 4Гб 3216 8Гб бар ма жаубы керек боп тұр

MOGZ ответил