Program znanija;
var b:integer;
begin
writeln('Какой у вас пульc(в ударах в минуту)?');
readln(b);
begin if b=60 then writeln('Это нормальный пульс человека')
else writeln('Ваш пульс не соответствует норме');
end;
<span>end.</span>
Суть программы - вводите число, оно выводит это число, если оно делится на 5 и 7, иначе ничего не выводит.
1) (а)100101100 (2); 454 (8); 12C (16);
(б)101110111 (2); 567 (8); 177 (16);
2) (a)756, 1; (б) 756, 12;
3)756 + 1 + 756 + 12 = 1525( в десятичной)
10111110101(в двоичной)
5F5(в шестнадцатеричной)
Если нужно и с числами из первого пункта, то:
300+375+756+1+756+12=2200 (10)
100010011000 (2)
898 (16)
Program zadacha;vara: array[1..1000] of integer;i,n,k: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000);write(a[i]:6);end;
k:=0;for i:=2 to n do beginif (a[i] mod 2<>0) and (i mod 2 = 0) then beginwriteln();writeln(a[i], ' N ',i);k:=k+1;end;end;writeln();writeln('kol-vo elementov =',k);end.
program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.
var
Digit: integer;
begin
readln(Digit);
writeln(Digit mod 3 = 0);
end.