4 года назад

Составить программу вывода на экран нечетных чисел от 1 до любого введенного числа, с помощью цикла с параметром. В PaskalABC.

1 ответ:

sem93 [49]4 года назад

0 0

Извини, на паскале не могу (( Только Python или C++ ((

На Python (он наверно ближе):
n=int (input ())
for i in range (1, n):
____if i÷2!=0:
________print (i)

Я обозначала "_" пробел

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

A:=30 b:=6 a:=a\2*b if a>b then c:=a-3*b else c:=a+3*b

АйронКрипер [31]

Ответ:
a==90
b==6
c==72

0 0

3 года назад

Дано целое число N (больше 1). Последовательность чисел Фибоначчи FK определяется следующим образом:F1 = 1, F2 = 1, FK = FK-2 +

Rustamom2030 [11]

FN = FN-2 + FN-1
Сдледовательно, если N+2 + N-1 = N, то N - число Фибоначчи.

0 0

4 года назад

Вычислите значение переменной d после выполнения фрагмента программы на языке программирования Turbo Pascal: a := 3; b := 2; c :

iiikeeper [1.5K]

Program Valerya;
uses CRT;
car a, b, c, d:integer;
begin
a := 3;
b := 2;
c := 5;
d := 7;
if a – b < 0
then if d < c
then if d < 0
then a := b
else
else a := d
else d := c;
writeln(d);
end.
это программа.
а значение d=5

0 0

4 года назад

кросворд:1. основной инструмент сбора , хранения и переработки2.основное устройство ввода информации 3. "мозг" компьютера4..устр

Константин Курицын [49]

1)?

2)клавиатура (скорей всего)

3)процессор

4)?

5)жёсткий диск или винчестер

6)мышь

7)диск

8)винчестер

9)принтер

0 0

4 года назад

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

Помогите пожалуйста 1) составьте программы к задачам Определить, является ли введённое число двузначным ( число любое 2х значно

yacatan [10]

На каком языке надо? Если паскаль то держи:
1)Program A;
Var a:Integer;
Begin
Write('Введите двузначное число');
Read(a);
If (a>10) and (a<100)
Then
Writeln('Число является двузначным')
Else
Writeln('Вы ввели не двузначное число!');
End.

2)var
i,a:integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a-1;
writeln(a);
end;
end.

3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже

4)program b;
var a:integer;
begin
write('Введите любое четное число= ');
read(a);
if a mod 2 = 0
then
write('Ответ= ',a/2)
else
write('Было введено нечетное число!');
end.

5)program d;
var i,a:Integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a+10;
writeln(a);
end;
end.

6)Его надо делать так же как число и 555 а ответ вообще 4 единицы

0 0

4 года назад