Нужно написать программу суммы двух факториалов, используя цикл(ы program название; var переменные: integer; begin writeln('введите число') readln(f) for i: = а вот дальше не знаю,
Ответы
Php script
<?phpif (isset($_GET['a'])) $string_a=htmlentities($_GET['a']);if (isset($_GET['b'])) $string_b=htmlentities($_GET['b']); $isEmpty=false;if ((empty($string_a))&&(empty($string_b))) $isEmpty=true; if ($isEmpty==false){ $a = (int)$string_a; $b = (int)$string_b; $c = $a+$b;}else{ $a = 1; $b = 1;}?><!DOCTYPE html><html lang="ru"> <head> <meta charset="UTF-8" /> <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>Программа сложения двух чисел</title> </head> <body> <form action="index.php"> <input name="a" type="text" value="<?php echo $a;?>"><br> <input name="b" type="text" value="<?php echo $b;?>"><br> <input type="submit" value="Сложить два числа"><br> </form><?phpif ($isEmpty==false){ echo $a." + ".$b." = ".$c;}?> </body></html>
<?phpif (isset($_GET['a'])) $string_a=htmlentities($_GET['a']);if (isset($_GET['b'])) $string_b=htmlentities($_GET['b']); $isEmpty=false;if ((empty($string_a))&&(empty($string_b))) $isEmpty=true; if ($isEmpty==false){ $a = (int)$string_a; $b = (int)$string_b; $c = $a+$b;}else{ $a = 1; $b = 1;}?><!DOCTYPE html><html lang="ru"> <head> <meta charset="UTF-8" /> <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>Программа сложения двух чисел</title> </head> <body> <form action="index.php"> <input name="a" type="text" value="<?php echo $a;?>"><br> <input name="b" type="text" value="<?php echo $b;?>"><br> <input type="submit" value="Сложить два числа"><br> </form><?phpif ($isEmpty==false){ echo $a." + ".$b." = ".$c;}?> </body></html>
Составить программу, которая меняет местами значения переменных a и b, введенных с клавиатуры, без использования дополнительных переменных вот прога которую я нашёл в инете и разбирал не понимаю одного как она вычисляет по формулам begin a:=a+b; b:=a-b; a:=a-b; end; объясните если например a= 23, b=45 PascalВыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 var a,b:real; procedure change(var a,b:real); begin a:=a+b; b:=a-b; a:=a-b; end; begin writeln(' Г*,ГЎ'); readln(a,b); writeln('a=',a); writeln ('b=',b); change(a,b); writeln('a=',a); writeln ('b=',b); readln; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var n,s:integer;
readln(n);
if (n=0) then writeln('0!=1') else
if (n<0) then writeln('Определяется только для положительных чисел') else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!='s:0:0);
end;