1) Программа выводит N раз число K:
var k,n,i: Integer;
begin
writeln('Введите k');
readln(k);
writeln('Введите n');
readln(n);
for i:=1 to n do writeln(k);
end.

2) Сумма чисел от 6 до 10:
var a,sum: Integer;
begin
for a:=6 to 10 do
begin
Inc(sum,a);
end;
writeln(sum);
end.

0 0

4 года назад

2. Какое значение будет иметь переменная b после выполнения следующих операторов присваивания: a:=3; b:=a+9; b:=a+b; b:=a-b+b/a.

Надежда1992

A=3
b=12
b=15
b=3-15+15/3=-7

0 0

4 года назад

Назовите основные группы клавиш и сколько их всего?

profilaktor [6]

Клавиатуры имеют по 101-104 клавише, размещенных по стандарту QWERTY (в верхнем левом углу алфавитной части клавиатуры находятся клавиши Q, W, E, R, T, Y). Отличаются они лишь незначительными вариантами расположения и формой служебных клавиш, а также особенностями, обусловленными используемым языком.

Набор клавиш клавиатуры разбит на несколько функциональных групп:

алфавитно-цифровые; функциональные; управления курсором; служебные; клавиши дополнительной панели

0 0

3 года назад

Люди,помогите написать программу в Паскале. Нужно,чтобы сравнивалась дробная и целая часть вещественного числа,если она одна и т

Zimzim

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.

Примеры
Введите число: 121.121
True

Введите число: 12.11999
False

0 0

4 года назад

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