1) Program lapy; var lapy:integer; Begin Writeln('Сколько лап?'); Readln(lapy); If lapy=0 then Writeln('Это рыба'); if lapy=2 hten Writeln('Это птица'); if lapy=4 then Writeln('Это лось'); if lapy=6 then Writeln('Это жук'); if lapy=8 then Writeln('Это паук'); end. 2) Program kinotheatr; var mesto:integer; Begin Writel('Укажите Ваше место:'); Readln(mesto); if (mesto>=1) and (mesto<=10) then Writeln('Цена 150р.'); if (mesto>=11) and (mesto<=15) then Writeln('Цена 100р.'); if (mesto>=16) and (mesto<=20) then Writeln('Цена 75р.'); End.
Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
ЯП - pascal.
v - число типа real (вещественное)
:8 - количество символов в выводе (если больше длины числа, то добавляет пропуск перед число)
:2 - до какого числа округлить
Объяснение:
Пример:
var
a: real;
begin
a := 1.23456789;
write(a:0:2); // '1.23'
end.
var
a: real;
begin
a := 1.23456789;
write(a:8:2); // ' 1.23'
end.