Для меня информатика это наука изучающая мир компьютеров.Так как на дворе 21век,мы не можем обойтись без компьютеров и телефонов.Из них мы добываем информацию и делаем доклады в школу.
Var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.
Ты де би л? естественно нет. Eсли ты имеешь регистр то да. И какие ты именно языки программирование изучаешь?
Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(mas[i]);
k:=k+mas[i];
writeln(mas[i] ,'+');
write(k);
end.
1,3 Мбайт = 1,3*1024 Кбайт = 1,3*1024*1024 байт = 1,3*1024*1024*8 бит
1 мин = 60 сек
частота дискретизации = (1,3*1024*1024*8)/(60*16) ≈ 11360 Гц