Program z1;
var f: array[1..14] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 14 do
begin
f[i]:=random(16,35);
writeln(f[i],' человек',' в',' ',i,' классе');
Sum:=Sum+f[I];
end;
writeln('----------------------');
writeln ('Всего человек:',sum);
writeln ('Нужно уроков:',14*2); // делим на 2 группы,т.к во всех классах >16 человек.
writeln ('Нужно часов:',(14*2)*0.75); // урок длится 3/4 часа (45 минут).
end.
1)
var a:array [1..4] of integer;
var x,i,i1: integer;
begin
writeln('Введите 4-х значное число');
read(x);
for i:=1 to 4 do begin
a[i]:=x mod 10;
if a[i] mod 3 = 0 then begin
i1:=i1+a[i];
end;
x:=x div 10;
end;
write(i1);
<span>end.
2)
Немного не понял:
var a:array [1..4] of integer;
var i,n,y: integer;
begin
n:=1;
for i:=1 to 4 do begin
writeln('Введите ',n, ' число');
read(a[i]);
if a[i]<0 then y:=y+1;
n:=n+1;
end;
write('Отрицательных чисел: ',y);
end.
<span>
3)
var i,y,x: integer;
begin
writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)');
read(i);
if i=1 then begin
writeln('Введите x');
read(x);
write('y=',(x*x*x)+x);
end
else begin
if i=2 then begin
writeln('Введите x');
read(x);
write('y=',(x+1)*(x+1));
end
else begin
if i=3 then begin
writeln('Введите x');
read(x);
write('y=',sqrt(x+4));
end;
end;
end;
end.<span>
</span></span></span>
Program minsk;
var a: integer;
begin
writeln('В каком году был основан город Минск?');
writeln('В 1067г.');
writeln('В 993г.');
writeln('В 1147г.');
read(a);
if a=1067 then
writeln('Верно');
else
writeln('Не верно Минск был основан 1067г')
end.
// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.
Var l:integer;
l1:real;
lm:integer;
begin
write('Введите расстояние в сантиметрах ');
read(l);
l1:=l/100;
lm:=trunc(l1);//округляет значение до близжайшего вычитая из него -0.5
writeln(lm,' метров');
<span>end.</span>