1024 байт за 1 символ
так как 256+256=512:0.5=1024
А)Начало ->
Ввод массива ->
Ввод X ->
Ввод Y ->
Если X>Y
->no->End
->yes->
p=0 ->
∨-> если элемент массива (p) > X, элемент массива (p) = X ->
если элемент массива (p) < Y, элемент массива (p) = Y ->
p = p + 1 -> если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
б)Начало ->
Ввод массива ->
p=0 ->
∨-> если элемент массива (p) \%(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)\%3
->p=p+1
->если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
program qq;
uses crt;
var a,x,b:real;
begin
crlscr;
writeln('введите а и b ');
readn(a,b);
if a=0 then
if b=0 then writeln('x любое число')
else writeln('решений нет ')
else begin
x:=(-b/a);
writeln (x);
end;
readln
end.
сорри за то что все в куче
Программа:
uses crt,dos;
var x,y:real;
begin
write('x='); readln(x);
y:=5*(x+10)/(2-7);
writeln('y=',y:5:2);
Readkey;
<span>end.
Пример:
x=2
<span>y=-12.00</span></span>
Предпоследние семь строчек записывают массив работников и зарплату (созданная случайным образом), общую сумму и количество работников с указанной зарплатой в файл (в программе настроено в файл output.txt на локальном диске С, при желании можно изменить название файла и месторасположения его)
При правильной работе программы на диске С данный файл создается. Если его открыть, в нем будут те же данные, которые выдаст программа на экран монитора