0.1359Е+7 = <span>0.1359 * 10^7 = 1359000</span>
19.569120Е-5 = 19.569120 * 10^-5 = 0,0001956912
var
n,i,otv,l,m,h,k: integer;
begin
writeln ('сколько человек в группе');
read (n);
for i:=1 to n do
begin
writeln ('какой язык ты изучаешь: 1-англ,2-нем,3-франц,0-никакой');
read (otv);
case otv of
0: l:=l+1;
1: h:=h+1;
2: k:=k+1;
3: m:=m+1;
end;
end;
writeln ('английский язык изучает',h,'человек');
writeln ('немецкий язык изучает',k,'человек');
writeln ('французский язык изучает',m,'человек');
writeln (l,'человек не изучает никакой язык');
end.
ЭВМ-ЭЛЕКТРОННО ВЫЧИСЛИТЕЛЬНАЯ МАШИНА.
ЭВМ МОЖНО ВНЕДРИТЬ ПОЧТИ ВО ВСЕ ОТРАСЛИ,ТАК КАК ЭТО УЛУЧШАЕТ СКОРОСТЬ И КАЧЕСТВО РАБОТЫ В РАЗЫ.
ПОДУМАЙ ГДЕ ТОЛЬКО НЕТ КОМПЬЮТЕРОВ ЧЕРЕЗ КОТОРЫЕ МОЖНО КОНТРОЛИРОВАТЬ РАБОТУ ИЛИ ПРОСТО ЭКОНОМИТЬ ВРЕМЯ.
ПОКОЛЕНИЕ ЭВМ-ПОКОЛЕНИЕ КОМПЬЮТЕРИЗАЦИИ.
ЭВМ И КИБЕРНЕТИКА СВЯЗАНЫ ПОТОМУ ЧТО 1)КОНТРОЛЬ НАД ВНЕДРЕННЫМ ЧЕМ УГОДНО ОСУЩЕСТВЛЯЕТСЯ ЧЕРЕЗ КОМПЬЮТЕР,2)ПОДДЕРЖАНИЕ РАБОТЫ И ОБЕСПЕЧЕНИЕ ЭТО ВСЕ ТЕЖЕ МОЖЕТ ДРУГИЕ СХЕМЫ КАК В ЭВМ.
Uses crt;
const n=4;
m=4;
var a: array [1..n,1..m] of integer;
b: array [1..100] of integer;
x,y,z,max,min,k: integer;
begin
z:=1;
for x:=1 to n do begin
for y:=1 to m do
begin
a[x,y]:=random(20);
write(a[x,y]:3);
end;
writeln;
end;
for y:=1 to m do begin
max:=a[1,y];
for x:=1 to n do
if a[x,y]>max then max:=a[x,y];
b[z]:=max;
inc(z);
<span> end;
</span> min:=b[1];
k:=z-1;
for z:=1 to n do
if b[z]<min then min:=b[z];
writeln;
writeln(min);
<span>end.
---
Блок-схема во вложении</span>
I=600Кбайт=600*2^10байт
К=60*х*64
i=2байта
x=600*2^10/
------------- = 10*2^3=320
2*60*2^6