4 года назад

Что значит End, readln, writeln

1 ответ:

0 0

1) Конец
2) Это термин в Паскале ( readln(x) читает вводимую с клавиатуры строку в переменную х и переносит курсор на следующую строку )
3) Отличие процедуры Writeln от оператора Write заключается в том, что Writelnпосле вывода сообщения на экран переводит курсор на другую строку.

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

Последовательно вводятся 10 целых чисел. Сосчитать сколько из них совпадают с первым числом.Ввести 12 чисел. Определить сколько

Галюся [28]

№1
var a, b, k, i:integer;
begin
k:=0;
readln(a);
for i:=1 to 9 do begin
readln(b);
if a=b then k:=k+1;
end;
writeln('Ответ:', k);
end.

№2
var a, k, i:integer;
begin
k:=0;
for i:=1 to 12 do begin
readln(a);
if a mod 5=0 then k:=k+1;
end;
writeln('Ответ:', k);
end.

0 0

4 года назад

Полусуммы кубов двух целых чисел c и d

Jimi2018

Полусумма кубов это сложение двух кубов деленных на 2 или на половину (с³+d³)/2

0 0

4 года назад

Определите значение переменной bпосле выполнения данного алгоритма; а:=100. b:=400. a:=2*а+50, b:=а*2-b

volodya14 [23]

2)b=6*9-4=50

a=50/5*3-4=26

3) a=2*100+50=250

b=250*2-400=100

0 0

3 года назад

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

Объединение нескольких ячеек таблицы в одну надо

Константин2015 [25]

если в Excel, то выделяешь мышкой несколько ЯЧЕЕК любые (например A1 до B1) нажимаешь ПРАВОЙ КНОПКОЙ МЫШИ по ним(ячейкам) ФОРМАТ ЯЧЕЕК а потом в другом ОКНЕ НАЖИМАЕМ ВЫРАВНИВАНИЕ И ТАМ СТАВИМ ГАЛОЧКУ "ОБЪЕДИНЕНИЕ ЯЧЕЕК"

0 0

4 года назад

Задача на QBasic.Найдите произведение чисел массива кратных числу K.

Brdiawe

DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P

0 0

3 года назад