program zadacha;
var a,b:integer;
begin
writeln('введите число сотен');
readln(a);
b:=a*100;
writeln('введите число десятков');
readln(a);
b:=b+a*10;
writeln('введите число едениц');
readln(a);
b:=b+a;
writeln('полученное число = ',b);
readln;
end.
Var
a : array [1..100] of longint;
sum,i : longint;
begin
sum:=0;
for i:=1 to 13 do begin readln(a[i]); sum:=sum+a[i]; end;
if sum>15
then writeln('Много')
else writeln('Мало');
end.
Ответ № 5 - для <span>однозначного выделения записи в базе данных.
</span>
<span>Под первичным
ключом понимают поле или набор полей,
однозначно (уникально) идентифицирующих
запись. (http://informatic.ugatu.ac.ru/lib/office/Proekt.htm)</span>
#include <iostream>
#include <sstream>
using namespace std;
int ispal(int x)
{
stringstream a;
a<<x;
string s =a.str();
string t="";
for(int i=s.length()-1;i>=0;i--)
t+=s[i];
for(int i=0;i<s.length();i++)
if(s[i]!=t[i])
return 0;
return 1;
}
int main()
{
int n;
cin>>n;
while(!ispal(n))
n++;
cout<<n;
return 0;
}
Ответ:
задача 3
Объяснение:
код написан на delphi/pascal
program Task3;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Alpha: set of Char = ['A'..'Z','А'..'П','Р'..'Я','a'..'z','а'..'п','р'..'я'];
var
s: String;
i: Integer;
wc: Integer;
begin
Readln(s);
i := 1; wc := 0;
repeat
while not (s[i] in Alpha) and (i <= Length(s)) do Inc(i);
if (i <= Length(s)) then Inc(wc);
while (s[i] in Alpha) and (i <= Length(s)) do Inc(i);
until i > Length(s);
Writeln('Num words -> ',wc);
readln;
end.