4 года назад

Программа с предусловием "выведите квадрат натуральных чисел, не певышащих 50" на языке паскаль

Знания

Информатика

1 ответ:

Вячеслав Белоногов4 года назад

0 0

Var
A:integer;
Begin
For A:= 1 to 50 do
WriteLn(A*A);
End.

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

Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в в 16

Elena s [18]

Надо решить такое уравнение:
8*x=16*x-800
8*x=800
x=100

Ответ: в сообщении 100 символов

0 0

4 года назад

Помогите пожалуйста с ПРОГРАМИРИВАНИЕМ в паскале с оператором If. Даны три целых числа A, B, C. Определить, есть ли среди них хо

ForwarD152

Ответ:

Задание 1

a = int(input())

b = int(input())

c = int(input())

if (a % 2 == 0 and b % 2 != 0) or (a % 2 != 0 and b % 2 == 0):

print("YES")

elif (a % 2 == 0 and c % 2 != 0) or (a % 2 != 0 and c % 2 == 0):

print("YES")

elif (b % 2 == 0 and c % 2 != 0) or (b % 2 != 0 and c % 2 == 0):

print("YES")

else:

print("NO")

Задание 2

Var i,j,t:integer;

a:array[1..3] of integer;

Begin

for i:=1 to 3 do

readln(a[i]);

for i:=1 to 3 do

for j:=i+1 to 3 do

if a[i]>=a[j] then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

for i:=1 to 3 do

write(a[i],' ');

End.

Объяснение:

0 0

4 года назад

алгоритм Мишеньцел n, k, iвещ массив P[1000]вещ r1, r2начало ввести n, массив P и радиусы r1, r2 /* Исходные данные */вывести за

Алена1975

uses crt;
var
n,k,i:integer;
r1,r2:real;
p: array[1..1000] of real;
begin
k:=0;
write('n='); read(n);
writeln('P[n]:');
for i:=1 to n do
read(p[i]);
write('r1='); read(r1);
write('r2='); read(r2);
for i:=1 to n do
begin
if (r1<p[i]) and (p[i]<r2) then k:=k+1;
end;
writeln;
write('Внутри ',k,' точки.');
end.

0 0

4 года назад

Дано целое число А. Если значение А<0,то необходимо удвоить его. Написать программу для решения этой задачи.

Рич555 [17]

Var a: integer;
begin
readln (a);
if a<0 then a:=a*2;
writeln (a);
end.

0 0

4 года назад

Как называется вот этот значек "&"

ferb

конъюнкция (логическое умножение)

0 0

3 года назад

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