Program Pr1;
uses crt;
var x:real;
begin
clrscr;
x:=-4;
while x<=4 do begin
writeln(ABS(x+2));
x:=x+0.5;
end;
end.
Var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
readln(a[i]);
for i:=1 to 15 do
if a[i]<=i then
write(a[i]);
<span>end.</span>
На Pascal:
program sum4;uses crt;var a:integer;
begin writeln('Введите 4-х значное число');readln(a); writeln('Сумма крайних цифр = ',(a mod 10)+(a div 1000)); writeln('Сумма средних цифр = ',((a div 100) mod 10)+(a div 10) mod 10);end.
1) в кабинете информатики запрещено ходить по классу без розрешении учителя
2)в кабинете информатики запрещено отлекать рядом сидящих товарищ
3)в кабинете информатики запрещено заходить в класс с мокрой одеждой
4)в кабинете информатики запрещено садится за компьютер бещ разрешения учителя
Ответ:
p:=random(...)+...
Объяснение:
... - это интервал который тебе нужен