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

Question

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

Answer 1

50

vov52

10 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: