Var a,b: integer; begin write('введите два числа: '); readln(a,b); a: =a+b; if a mod 5 = 0 then a: =a+1 else a: =a-2; writeln(a); end. введите два числа: 17 13 31
Спасибо
Ответ дал: Гость
первым кому удалось расшифровать египетские иероглифы, был французкий ученый жан-франсуа шампольон (1790-1832). он составил полный список иероглифов и их гречиских эквивалентов создав тем самым основу для перевода всех египетских текстов.
Популярные вопросы