Анастасия Елена
?>

Паскаль. В файле содержатся четырёхзначные числа (каждое число в отдельной строке) 1. Определить количество повторений числа 5127 2. Количество чисел, оканчивающихся на 0 3. Количество чисел, имеющих в записи 0 4. Определить диапазон значений чисел. Для этого найти наибольшее и наименьшее из них. 5. Вывести числа, встречающиеся больше 11 раз.

Информатика

Ответы

mayskiyandrey90
1)
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль. В файле содержатся четырёхзначные числа (каждое число в отдельной строке) 1. Определить количество повторений числа 5127 2. Количество чисел, оканчивающихся на 0 3. Количество чисел, имеющих в записи 0 4. Определить диапазон значений чисел. Для этого найти наибольшее и наименьшее из них. 5. Вывести числа, встречающиеся больше 11 раз.
Ваше имя (никнейм)*
Email*
Комментарий*