Задать вопрос!

Задать вопрос!

Все категории

Саша Первый

4 года назад

6

Расставьте строки программы в правильном порядке чтобы получилось программа которая выводит на экран 10 первых четных чисел Prog

ram Ch_chisla

Информатика

1 ответ:

Venjador4 года назад

0 0

Решение во вложении...

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

Составить программу нахождения значения выражения: к=2х 3 -5х 2+х-6, если значение х вводится с клавиатуры.

НАТАЛИЯ ШИШОВА [6]

Var
k,x:integer;
Begin
readln(x);
k:=2*x;
writeln('2*x = ',k);
k:=3-(5*x);
writeln('3-(5*x)= ',k);
k:=2+x-6;
writeln('2+x-6=',k);
<span>End.</span>

0 0

4 года назад

Считая что каждый символ кодируется одним байтом определите чему равен информационный обьём текста: Мира - Мир!

влад 62

1 символ = 1 байт значит
Мира = 4 байтам
- = 1 байт
Мир = 3 байта
Итого 4+1+3 = 8 байтов

0 0

2 года назад

ПАСКАЛЬ вывести на экран таблицу умножения на n!!!!!!!!

vipxxl

Uses crt;
var i,n:integer;
begin
readln(n);
for i:=1 to 9 do
writeln(i,'x',n,'=',i*n);
end.

0 0

1 год назад

Помогите пожалуйста составить программу паскаля Дан ряд чисел 5 9 13 17 и т. д. составить программу которая находит элемент стоя

Альсеида

//PascalABC.NET 3.1 сборка 1219
begin
    var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
    PrintLn(a);
end.

или более сложно

const
    n = 20;

var
    i, a: integer;

begin
    a := 5;
    for i := 2 to 20 do
        a := a + 4;
    writeln(a);
end.

0 0

3 года назад

Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a,b,c :=in tege; b

alexrou [302]

<span>program Project1;

var
i, j, k : Byte;
begin
Writeln('трехзначные числа где есть 2 од. цифры:'); for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
if (i = j) or (j = k) or (i = k) then Writeln(i, j, k);
Readln;
<span>end.

Пробел = TAB (который перед строкой)</span></span>

0 0

4 года назад