Var a, sum, i : integer; s, x : string; sa : real;
begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln('сумма: ', sum); writeln('среднее арифметическое: ', sa:4:2);end.
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (S,v,t):=ReadInteger3('Введите S,v,t');
if s<>v*t
then Println('Расстояние не равно скорости на время')
else Println('При скорости в 3 р. больше, расстояние=',v*t*3,'км');
<span>end.
Пример(1):
Введите S,v,t-> 9 5 2
Расстояние не равно скорости на время
Пример(2):
Введите S,v,t-> 10 5 2
При скорости в 3 р. больше, расстояние= 30 км
</span>
Локальная шина (local bus) — функционально специализированный вид шины в IBM PC для связи процессора с отдельными видами периферийных устройств (контроллеров накопителей, видеоадаптеров и т.п.). Пропускная способность различных локальных шин может существенно отличаться.
Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай:
Program Proverka;
uses CRT;
var x:real;
Begin
clrscr;
writeln ('Введите X');
readln (x);
IF x<0 then
writeln ('Отрицательное число x=' , x:5:2) Else
Begin
IF x>0 then
writeln ('Положительное число x=' , x:5:2) Else
writeln ('Вы выбрали неверное значение'); End;
readln;<span>
End.</span>
N=2^i где N - количество цветов, i - глубина цвета.
256 = 2^i
2^8 = 2^i
i=8 бит = 1 байт
640*1024*1 = 640*1024 (байт) = 640 Кбайт
Ответ: 640 Кбайт