var a:integer;
begin
readln (a);
if (a>0) then
repeat
a:=a-3;
until(a<0);
if (b<0) then
repeat
a:=a+2;
until (a>70);
writeln (a);
end.
Var
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает <span>счетчик</span>?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.
<span>С:\
</span>С:\мои документы
С:\<span>фильмы
</span>С:\фильмы\<span>интересный фильм.avi
</span>С:\мои документы\иванов
С:\мои документы\<span>петров
</span>С:\мои документы\иванов\<span>QBasic.exe
</span>С:\мои документы\иванов\<span>рисунки
</span>С:\мои документы\иванов\рисунки\<span>море.bmp
</span>На будущее, перефоткай страницу с этим заданием. Так ничего не понятно.
Тебя спасло, что она у меня на диске завалялась. Без той картинки это невозможно.
Таблица истинности и функциональная схема приведены во вложениях.
Объяснение:
C:\НОВОЕ\ПОКОЛЕНИЕ \ ВЫБИРАЕТ \ чтение.doc