var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.
<span>это значит что пользователю будут показывать картинку, и качество картинки зависит от пожеланий пользователя и возможностей оборудования, т.е. если у вас 14' ega то при всем вашем желании он 1960*1280 показывать не будет, а вот между 640*480 и 800*600 можно будет выбрать.</span>
Ответ:
Предполагаю что это один из шаблонов WordArt
Объяснение:
с уплотнением в 1 пт или более стандартным для этого шаблона шрифтом кегель опционально
1.
var
a, b, c, s, p: integer;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
<span>end.
2.
</span>var
a, b, c, s, p: integer;
sr: real;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
sr := s/3;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
writeln('(', a, '+', b, '+', c, ')/3=', sr);
<span>end.</span>
Var a,b,c,p,s:real;
begin
write ('Введите длину стороны a: ');
readln (a);
write ('Введите длину стороны b: ');
readln (b);
write ('Введите длину стороны c: ');
readln (c);
p:=(a+b+c)/2;
s:=SQRT(p*((p-a)*(p-b)*(p-c)));
writeln ('Площадь = ',s);
end.