Напишите пожалуйста программу Pascal ABC для Винни-Пуха. СРОЧНО!!!!

Знания

Информатика

1 ответ:

Ingadem [11]3 года назад

0 0

Программа для нахождения периметра и пощади прямоугольника.

program n1;
var a, b, P, S: real;
begin
readln(a, b(;
P:=2*(a+b);
S:=a*b;
writeln('P=' ,P);
writeln('S=',S);
end.

Читайте также

Помогите пожалуйста!!! Какое количество цветов можно закодировать, используя на код одного цвета 8 бит?

shuvelita

2^8=256 цветов (считая и 0)

0 0

4 года назад

Помогите пожалуйста составить программы в паскале: 1. сформировать массив из 15 элементов случайным образом и вывести его на эле

Владимир08

Этот текст здесь только для того, что бы мой ответ пропустили.

0 0

4 года назад

Срочно!!!!!! Очень надо!!!! А в конце объясните как делать

Светлана Х

1. 415(10)=110011111(2) = 637 (8) =19F(16)
2. 10011(2) =19(10) 314(8)=204(10) A8(16)=168(10)
3. a) 23(16)=100011(2)
б) АС(16)=254(8)
в) 10111101(2)=275(8)
г) 101011101(2)=ВD(16)
д) 101010(8)=1000001000001000(2)
е)23(10)=17(16)

0 0

4 года назад

Помогите. Pascal abc Написать программу, которая находит сумму целых чисел ,которые больше 100, меньшее 200, кратны 7 и заканчив

xxdan

Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных мест

Анжелика25 [629]

Uses crt;
const Z=5;
var a:array [1..Z] of real;
x,k,n:integer;
begin
for x:=1 to Z do
begin
readln(a[x]);
if (x mod 2=1) and (a[x]>0) then inc(k);
if (x mod 2=1) and (a[x]<0) then inc(n);
end;
writeln('Положительных: ',k);
writeln('Отрицательных: ',n);
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа