Program rtr1;Uses crt;var a,s,d,e:integer; ss,dd,ee:string;beginclrscr;Writeln('Введите число от 100 до 399');readln(a);s:=a div 100;e:=a mod 100 mod 10;d:=a div 10 mod 10;case s of1: ss:='сто';2: ss:='двести';3: ss:='триста';end;case d of2: dd:='двадцать';3: dd:='тридцать';4: dd:='сорок';5: dd:='пятьдесят';6: dd:='шестьдесят';7: dd:='семьдесят';8: dd:='восемьдесят';9: dd:='девяносто';end;case e of1: ee:='один';2: ee:='два';3: ee:='три';4: ee:='четыре';5: ee:='пять';6: ee:='шесть';7: ee:='семь';8: ee:='восемь';9: ee:='девять';end;if d=1 then begin case e of 1: dd:='одинадцать'; 2: dd:='двенадцать'; 3: dd:='тринадцать'; 4: dd:='четырнадцать'; 5: dd:='пятнадцать'; 6: dd:='шестнадцать'; 7: dd:='семнадцать'; 8: dd:='восемнадцать'; 9: dd:='девятнадцать'; end;write(ss,' ',dd);end elsewrite(ss,' ',dd,' ',ee);
<span>end.</span>
program area;
var
c,d,e,a,b,r:integer;
s1,s2,s3,max,p: real;
begin
writeln('Введите стороный треугольника');
read(c, d, e);
writeln('Введите стороны прямоугольника');
read(a, b);
writeln('Введите радиус круга');
read(r);
p:=(c+d+e)/2;
s1:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s1:0:2);
s2:=a*b;
writeln('Площадь прямоугольника: ',s2);
s3:=pi*r*r;
writeln('Площадь круга: ',s3:0:2);
if s1>s2 then
max:=s1
else
max:=s2;
if max>s3 then
writeln('Наибольшпя площадь: ',max)
else
writeln('Наибольшая площадь: ',s3:0:2);
end.
1) графика, текст, числа
2) файл - <span>Специально организованная структура данных, распознаваемая компьютером как единое целое.
3) все время делим 74 на 2, пока не дойдем до того что будем делить 0 или 1 на 2, тогда в обратном порядке записываем 0 и 1. Ответ у тебя </span>74 = 10010102
4) тут даем справа налево степени от 0 до 5, после чего пишем 100101 = 2^5*1 + 2^4*0 + 2^3*0 + 2^2*1 + 2^1*0 + 2^0*1 = 32 + 0 + 0 + 4 + 0 + 1 = 37
Nero не является антивирусной программой для компьютера.
<span>процессы, как устроен компьютер, системы, объекты, программы компьютера.</span>