Http://ideone.com/H6W5HJ программа на Паскале.
при x=1 a =<span>6.41411200080599E+001
</span> +Блок-схема.
Ответ:
Python:
n = int(input())
s = 0
for i in range(1, n+1):
s += n
print(s)
C++:
#include <iostream>
using namespace std;
int main(){
int n, s = 0;
cin >> n;
for(int i = 1; i <= n; i++) s += n;
cout << s;
}
Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
for var i:=1 to s.Length do s[:i+1].Println;
Writeln;
for var i:=s.Length downto 1 do s[:i+1].Println;
end.
<u>Пример</u>
Вводите: слово
с
сл
сло
слов
слово
слово
слов
сло
сл
с