Дан файл вещественных чисел. Создать файл целых чисел, содержащий длины всех убывающих последовательностей элементов исходного файла. Например, для исходного файла с элементами 1.7, 4.5, 3.4, 2.2, 8.5, 1.2 содержимое результирующего файла должно быть следующим программу решить(си шарп)
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.