Program z8; Var a:integer;Begin write('Введите число - '); readln(a); if (a > 0) then write('Число ',a,' в кубе - ',a*a*a) else if (a < 0) then write('Вы ввели отрицательное число') else write('Вы ввели 0'); End.
450 мбайт / (32 бит на один гц * (44 кгц * 1000 гц в кгц) * 2 канала * 60 / 8 / 1024 / 1024 ) = скоко аа
минут
простота и освоения системы
скорость достижения результатов
удовлетворенность при эксплутации
Program N12345678901011121314;
uses crt;
const n=8;
var
e:array[1..n] of integer;
vid,nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Елементи масиву:');
randomize;
nom:=0; //номер 5-го елементу
vid:=0; // к-ть негативних елементів
for i:=1 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
if e[i]<0 then
vid:=vid+1;
if (e[i]<0) and (vid = 5) then
nom:=i;
end;
writeln();writeln();
if nom<>0 then
writeln('Номер 5-го негативного елементу: ',nom)
else
writeln('Такого елемента немає');
end.
Дневник
ручка
блокнот
книга
краски