Program danya;
uses crt;
var i,k:integer;
begin
clrscr;
k:=0;
for i:=1000 to 9999 do begin
if (i mod 15=0) and (i mod 17 =0) then k:=k+1; end;
Writeln('Количество чисел= ', k);
readln;
<span>end.</span>
Ответ:
На фото мало что видно, но я попытаюсь помочь.
Как математически это представить?
1)
Точка должна быть ниже линии у=(непонятка1) горизонтальная линия
2)
Точка должна быть левее линии х=(непонятка2) вертикальная линия
3)
Точка должна быть выше линии у=(непонятка3 зависящая от х) накладная линия
По программистски условие выглядит так:
If у<(непонятка1) and x<(непонятка2) and y>(непонятка3 зависящая от х) then write('принадлежит');
Else write(' не принадлежит');
Итоговая прога выглядит примерно так:
Var x,y: real;
Begin
Read(x,y);
If у<(8) and x<(8) and y>(x-8) then write('принадлежит');
Else write(' не принадлежит');
End.
Вот и всё. Я не вижу чему равны непонятки, поэтому замени 8 на соответствующие величины
Напишу на PascalABC надеюсь Turbo похожи
program Test;
const N=60;
var k:array [1..N] of integer;
sum:integer;
begin
for i:=1 to 60 do{заполнение массива и сразу подсчет суммы}
begin
readln(k[i]);{вводите элемент с индексом i}
if k[i]<1
then
sum:=sum+k[i];{если его значение меньше еденице, то он прибавляется к сумме}
end;
writeln(sum);{вывод суммы на экран}
end.
Если надо на PascalABC.Net, то в версии языка 3.2 можно так:
begin
for var i:=1 to 10 do
print(random(10,80));
end.
Вариант №2 (классический)
var i:integer;
begin
for i:=1 to 10 do
write((random(91)-10),' ');
end.
Вариант №3 (с массивом)
var i:integer;
a:array[1..10]of integer;
begin
for i:=1 to 10 do begin
a[i]:= random(91)-10;
write(a[i],' ');
end;
end.