Если я правильно понял вопрос:

uses crt;Var a:integer;Beginread(a);
if (a>99) and (a<1000) then writeln ('трехзначное')
else writeln ('не трехзначное');End.

0 0

4 года назад

Помогите решить. Записать выражение на языке программирования Паскаль.

Sergeidmdy

1) y:= sqrt(a*x+b*x+c*c)/(15*x-sin(x))

2) y:= -12*sqrt(x*(y*y)+cos(a/2))

3) z:= (sin(x)+cos(x))/(sqrt(x*x+15))

4) S:= ((26*k-m)/(6-4*k))-56*m*k

5) y:= x-(sqrt((y*y+2)/2))+2*y

0 0

4 года назад

Информатика!че делать , помогите прям надо очень,а то жоп@ ;)))щ

GrimAnEye

Автобус автограф автодром автомат автор

0 0

4 года назад

Написать программу, которая выводит на экран все числа, которые нацело делятся на 3. диапозон от 100 до 1000. язык python

MafLup [252]

Ответ:

for i in range(100, 1001):

if i % 3 == 0:

print(i)

Объяснение:

Либо в списке:

numbers = []

for i in range(100, 1001):

if i % 3 == 0:

numbers.append(i)

print(numbers)

0 0

4 года назад