// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Draw(x->Sqrt(x),0,10)
end.
1 поколение
1946-1958
электронные лампы-диоды и триоды
2 поколение
1958-1964
полупроводниковые транзисторы
3 поколение
1964-1972
мис
4 поколение
1972 по наст. время
бис
Readln(n);
If (n>0)
write (n*n);
else
weite(0);
Видимо, 0 нельзя вводить?
На каждый пиксель отводилось log2(256)=8бит
В ЧБ на один пиксель 1 бит
Размер уменьшился в 8 раз
Тогда исходный файл был 80 байт.
Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.