1) Составьте программу для вычисления Y в зависимости от заданного аргумента X
y=1/-sqr(x) если х<=-1
y=sqr(x) если -1
y=-4 если x>2
2)Определить количество чисел от 10 000 до 99 999. которые делятся без остатка на 13,17, 15.
3)найдите все трехзначные числа кратные 3, сумма цифр которых больше суммы цифр частного от деления их на 3.
program zadacha2;
var i,d13,d15,d17 : integer;
begin
d13:=0;
d15:=0;
d17:=0;
for i:= 10000 to 99999 do
begin
if i mod 13 = 0
then d13:=d13+1;
if i mod 15 = 0
then d15:=d15+1;
if i mod 17 = 0
then d17:=d17+1;
end;
writeln ('На 13 делится', d13, ' чисел');
writeln ('На 15 делится', d15, ' чисел');
writeln ('На 17 делится', d17, ' чисел');
readln;
end.
program zadacha1;
var x : integer;
y:real;
begin
writeln ('Vvedite x');
readln (x);
if x<=-1
then y:=1/(-sqr(x));
if ((x>-1) and (x<=2))
then y:=sqr(x);
if x>2
then y:=2;
writeln ('x = ', x);
writeln ('y = ', y);
readln;
end.
Могу написать, пишите в почту.
if x<=-1 then y:=-1/sqr(x) else
if x>2 then y:=-4 else y:=sqr(x); и проверь второе условие, оно неверно
2. if (a mod 13 =0) and (a mod 15 =0) and (a mod 17 =0) then inc(k);
и т. д.
⇢