Program qq;
uses crt;
var c,h,m:real;
begin
write('Введите количество секунд ');
read(c);
m:=c/60;
h:=c/3600;
writeln('В ',c,' секундах ',m,' минут');
writeln('В ',c,' секундах ',h,' часов');
end.
Const
n=6;
Type vector=array[1..n] of integer;
var x:vector;
i:integer;
pr:extended;
begin
<u>pr:=1;</u>
for i:=1 to n do
begin
readln(x[i]);
if x[i] mod 17=0 then
pr:=pr*x[i];
end;
writeln('proizvedenie= ',pr:4:4);
readln;
<span>end.</span>
Для вывода данных в виде таблицы, очень похожую на таблицу в екселе
Название документа
строка меню
Строка формул
Рабочее поле
Бегунки
Строка состояния
Заголовки столбцов
Заголовка строк
Листы
Адрес ячейки
Общие элементы: Название документа, Строка меню, Строка состояния, Рабочее поле, бегунки
Все во вложении,там в ворде блок схема,в тестовике прога,просто формат на bas поставь и компилируй свободно
Сама прога:
PRINT "Vvedite chislo x!"
INPUT x
CLS
SCREEN 12
IF x > 0 THEN
CIRCLE (15, 20), 5, 15
ELSE
LINE (15, 200)-(200, 300), 5, BF
END IF
END