Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если все числа не превышают 30, то выведите их удвоенное произведение. если последнее число четно, то выведите произведение первых двух чисел, уменьшенное в 10 раз. решить нужно на среде с или с++ заранее .

1)необходимы: данные , условия, порядок действий. 2)формы записи алгоритмов: графический (в виде блок-схемы), на естественном языке, на алгоритмическом языке, на языке программирования. 3)1. набрать в 9л-ое ведро полное и вылить из него в 5л-ое. освободить 5л-ое ведро.в 9л-ом останется 4 л. 2. переливает эти 4 л в 5л-ое ведро. 3. наполняет  9л-ое ведро и выливает в 5л-ое ещё 1 л. в 9л-ом остается 8 л. освобождает 5л-ое ведро. 4. переливает из9л-ого ведра 5 л. и в 9л-ом ведре остается ровно 3 л. 4) фигуры в блок-схеме: овал - начало и конец алгоритма, прямоугольник - команды, параллелограмм - ввод и вывод данных, ромб - условие, шестиугольник - счетчик цикла. 5)порядок выполнения отдельных действий в блок схеме задается в виде стрелок, соединяющих блоки.

Uses crt; const zn=[' ',': ',',','! ','? ','-','; ',')']; var s,s1,s2: string; i,k: byte; begin clrscr; writeln('введите строку, содержащую 2 одинаковых слова: '); readln(s); s: =s+' '; for i: =1 to length(s) do if s[i] in zn then s[i]: =' '; while pos(' ',s)> 0 do delete(s,pos(' ',s),1); if s[1]=' ' then delete(s,1,1); k: =0; while pos(' ',s)> 0 do begin s1: =copy(s,1,pos(' ',s)-1); for i: =pos(' ',s)+1 to length(s) do if (copy(s,i,length(s1))=s1) and(s[i-1]=' ') and((s[i+length(s1)]=' ') or(i+length(s1)-1=length( then begin k: =1; s2: =s1; write('одинаковые слова ',s2); readln; exit; end; delete(s,1,pos(' ',s)); end; if k=0 then write('нет двух одинаковых слов'); readln end.