<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal; var y:=x*x+11; Writeln(y)
end.
Решим задание наоборот: 12 -> 8, 31 -> 14, команды меняем на противоположные.
Команда 1: подели на 3.
Команда 2: прибавь 5.
12 -> 8.
12 : 3 = 4 (1).
4 + 5 = 9 (2).
9 : 3 = 3 (1).
3 + 5 = 8 (2).
Пишем команды снизу-вверх: 2121.
31 -> 14.
31 + 5 = 36 (2).
36: 3 = 12 (1).
12 : 3 = 4 (1).
4 + 5 = 9 (2).
9 + 5 = 14 (2).
Пишем снизу-вверх: 22112.
Assign<span> – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.</span>
Reset - открывает существующий файл для чтения.
Rewrite<span> – создает и открывает новый файл для записи на внешнем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).</span>
Close<span> - закрывает открытый файл.</span>
//C++ - язык програмирования(не Pascal)
#include <iostream> //чтобы выводить на экран
int main() //тело программы
{
int a,b; //те числа(объявление переменных)
std::cin>>a; //ввод первого числа
std::cin>>b; //ввод второго числа
std::cout<<((int)(a/b))<<std::endl; //(int)х - преобразовать х в целое число(отбросить //дробную часть)
//std::cout<< - вывод
//std::endl - переход на следующию строчку
system("PAUSE"); //чтобы программа сразу не завершалась
return 0;
}
// // - коментарий
P.S ответь, пожалуйста, на моё сообщение.
