Найти сумму товаров стоимость которых 1000 рублей. Всего товаров 50000. Нарисовать блок схему( желательно с циклом).

113

469

Посмотреть ответы 2

Ответы на вопрос:

mariakyzminova

Информатика

4,8(24 оценок)

Вот ))) думаю ета схема должна подойти

milamilmi

Информатика

4,4(27 оценок)

Var str, s, s1, s2, s3: string; i: integer; begin str: ='êîìïèëßòîð'; s: =str[3]+str[2]+copy(str, 8, 3); writeln(s); s: =copy(str, 1, 3)+str[2]+str[1]; writeln(s); s: =copy(str, 4, 3)+str[2]+str[length(str)-2]; writeln(s); s1: ='ìàíäàðèí'; s2: ='ìîäà'; s3: ='ìàê'; s: =copy(s3, 3, 1)+copy(s2, 2, 1)+copy(s1, 1, 4)+copy(s2, 2, 1)+copy(s1, length(s1)-2, 1); writeln(s); writeln('vvedite stroku: '); readln(str); for i: =1 to length(str) do if str[i]=' ' then str[i]: ='_'; writeln(str); end.