- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
1. Найдите такой же архив (игру, программу), только на другом сайте, загрузите его.
2. Распакуйте стандартным архиватором и посмотрите, повториться ли проблема.
#include <iostream>
int main()
{
int n;
std::cin >> n;
if (n % 3 == 0 || n % 5 == 0 || n % 8 == 0)
std::cout << "YES";
else
std::cout << "NO";
return 0;
}
Можно написать энциклопедия .Либо книга о грибах(справочник съедобные грибы),является источником информации.