Сократите длину записанных выше программ сохранив их назначение.

Найдите и исправьте ошибки в программе:

program zadacha2_13;

var a,b:real;

c,e:integer;

Begin

writeln('Введите два целых числа'); readln(a);

c:=a/b;

d:=a mod b;

e:=c+d;

writeln(c);writeln(d);writeln(e);

End.

Задания для самостоятельной работы:

1. Даны два действительные числа. Найти среднее арифметическое этих чисел.

2. Дано трёхзначное число. Определить:

a) сумму и произведение цифр числа;

b) число, образованное перестановкой цифр исходного числа;

c) число, полученное перестановкой цифр сотен и десятков;

d) число, полученное перестановкой цифр десятков и единиц.

3. Дано пятизначное число, записанное в двоичной системе счисления (СС). Переведите данное число в десятичную СС.

4. Дано четырёхзначное число. Получите двузначное число, удалив из исходного четырёхзначного числа цифры:

a) тысяч и десятков (например: 2783 → 73);

b) сотен и единиц (например: 2783 → 28);

c) десятков и единиц (например: 2783 → 27);

d) получите другие двухзначные числа удалением цифр из исходного четырёхзначного числа.

5. Дано действительное число a. Не пользуясь никакими другими операциями кроме умножения, получить:

d) a⁶ за три операции;

e) a⁷ за четыре операции;

f) a⁹ за четыре операции;

g) a²⁸ за шесть операций;

h) a⁵ и a¹³ за пять операций;

i) a², a⁵ и a¹⁷ за шесть операций.

Условный оператор.

Не нашли, что искали? Воспользуйтесь поиском: