ТутРешу.Ру

ПаскальПроверить, будет ли файл, состоящий из целых чисел симметричен

Задание:

ПаскальПроверить, будет ли файл, состоящий из целых чисел симметричен. (первый символ должен быть равный последнему, второй символ равен предпоследнему и т. Д)

Решение:

Uses crt; vari,sum,kvad: integer; mas: array [1… 10] of integer; beginfor i: =1 to 10 domas[i]: =random (100); for i: =1 to 10 dowrite (mas[i],'); for i: =1 to 10 dosum: =sum+mas[i]; if sum mod 2=0 thenwriteln ('sum=',sum,' summa 4etna9') elsewriteln ('sum=',sum,' summa ne 4etna9'); for i: =1 to 10 dokvad: =kvad+mas[i]*mas[i]; if kvad>9999 thenwriteln ('kvad=',kvad,' p9tizna4noe') elsewriteln ('kvad=',kvad,' ne p9tizna4noe'); read; end.




Знаете другой ответ?

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