var
a:integer;
begin
writeln('Num'); readln(a);
if (a > 0) and (a < 5) then begin
case a of
1:writeln('Один');
2:writeln('Два');
3:writeln('Три');
4:writeln('Четыре');
end
end
else
writeln(sqr(a));
end.
С++.
я напишу на плюсах, просто вместо cout и cin подставишь printf и scanf
#include <iostream>
using namespace std;
void main()
{
int n,p,sum=0;
cin >> n;
for (;n!=0;) {
p = n%10;
sum+=p;
n/=10;
}
cout << sum;
cin.get();
cin.get();
}
<span>Загрузчик операционной системы
</span>
100-(100/64)*2=96.8%
Ценность информации 96.8%
Program Frank;
const n=20;
TYPE mas=array[1..n] of integer;
var a:mas;i:integer;
begin
for i:=1 to n do begin
a[i]:=sqr(i);
write(' ',a[i]);
end;
end.