2 пример-Программы с ветвлением if else
2 пример-
Программы с циклом for


 Program P1; 
uses crt; 
var k, x: real; 
begin 
clrscr; 
writeln ('Введите с клавиатуры значения переменных k и x (только числа). После ввода значения каждой из переменных нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 
write ('Введите значение переменной k: k='); 
readln (k); 
write ('Введите значение переменной x: x='); 
readln (x); 
if (k=0) and (x=0) then writeln ('Ошибка: происходит деление на 0.') else writeln ('Ответ: y=', (k*sqr (x))/abs (5*sqr (x)+6*k) :0:2); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end. Вот на Python: print ("Введите с клавиатуры значения переменных k и x (только числа). После ввода значения каждой из переменных нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.") 
k=float (input ("Введите значение переменной k: k=")) 
x=float (input ("Введите значение переменной x: x=")) 
if k==0 and x==0: 
    print ("Ошибка: происходит деление на 0.") 
else: 
    print ("Ответ: y =", (k*x**2)/abs (5*x**2+6*k)) Вот на C++: #include  
#include  
using namespace std; 
int main() 
{ 
    setlocale (LC_ALL, "RUS"); 
    double k, x; 
    cout
Вот на Fortran:BASIC и Java я не знаю, а на АЛГОЛе, пожалуй, писать не буду - и так достаточно, как по-мне. Если что - уже в комментариях по просьбам учащихся.