3*16*32 = 2^9 * 3 = 512*3 = 1536 байт
1536/1024 = 1.5 Кбайт
Program asd;
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
<span>END.</span>
Pascal
var
x,y : integer;
begin
readln (x,y);
if (x=0) or (y=0)
then
begin
if x = 0 then
writeln ('Точка лежит на оси y');
if y = 0 then
writeln ('Точка лежит на оси x')'
end
else
begin
if (x>0) and (y>0) then
writeln ('Точка находится в первой четверти');
if (x<0) and (y>0) then
writeln ('Точка находится во второй четверти');
if (x<0) and (y<0) then
writeln ('Точка находится в третей четверти');
if (x>0) and (y<0) then
writeln ('Точка находится в четвертой четверти');
end;<span>
end.</span>
<SCRIPT>
var a = prompt('1. a = ','');
alert ('V = '+a*a*a+' S = '+6*a*a);
z = -1; s=0;
for (i=1; i<=10; i++){z=-z; s=s+z*i};
alert ('s=1-2+3+...+(-1)^9*10 = '+s);
var s = prompt('3. s = ','');
k=0;
for (i=0; i<s.length;i++)
if (s[i]=='к') k++
alert ('k = '+k);
</SCRIPT>
Пример показан в прилагаемом файле.
1.<span>)Все имена существительные изменяются по падежам и числам. Слово "урок" - имя существительное. Следовательно, слово "урок" изменяется по падежам.
</span><span>2)Все ученики, которые учатся в первую смену, приходят в школу в 8 часов. Серёжа учится в первую смену. Когда приходит в школу Серёжа?
</span>Сережа приходит в школу к 8-ми часам.