Дан файл input.txt, компоненты которого являются действительными числами (всего 10 чисел, записанных в строку через пробел). Найти:
сумму чисел, записанных в файле;
произведение чисел, записанных в файле;
последнее число в файле;
среднее арифметическое элементов;
сумму чисел, стоящих на четных и нечетных местах;
два самых маленьких элемента.
Результаты записать в новый файл output.txt (с пояснениями, т.е. текстовыми подсказками, каждый пункт на новой строке).
a) не может, потому что переменные должны всегда начинаться с буквы
b) может
c) не может, слова могут быть разделены только знаком "_",не пробелом!
d) может
2) присваивание, обозначается знаком "="
Например:
sum = 0;
3)
4 строка - не red, а read
пропущена трока между 2 и 3 строчкой - это begin
4)
var
S, P, a, b: integer
begin
write('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
S = a * b; {нахидим площадь}
P = (a + b) * 2; {находим периметр}
writeln('Площадь = ', S, ', периметр = ', P);
end.
5)
Var
number, {Трехзначное число}
num1, {Первая крайняя цифра}
num2, {Вотрая крайняя цифра}
: integer;
Begin
write('Введите число');
readln(number);
num1 = number mod 10;
num2 = number div 100;
writeln('Сумма крайних цифр числа ', number, ' = ', num1 + num2);
End.
a) не может, потому что переменные должны всегда начинаться с буквы
b) может
c) не может, слова могут быть разделены только знаком "_",не пробелом!
d) может
2) присваивание, обозначается знаком "="
Например:
sum = 0;
3)
4 строка - не red, а read
пропущена трока между 2 и 3 строчкой - это begin
4)
var
S, P, a, b: integer
begin
write('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
S = a * b; {нахидим площадь}
P = (a + b) * 2; {находим периметр}
writeln('Площадь = ', S, ', периметр = ', P);
end.
5)
Var
number, {Трехзначное число}
num1, {Первая крайняя цифра}
num2, {Вотрая крайняя цифра}
: integer;
Begin
write('Введите число');
readln(number);
num1 = number mod 10;
num2 = number div 100;
writeln('Сумма крайних цифр числа ', number, ' = ', num1 + num2);
End.