var a: integer;
begin
write('Введите a: ');
readln(a);
if odd(a) then a:=a*a*a else a:=a*a;
writeln(a);
end.
odd(a) - функция, проверяющая нечетность числа. True - если число - нечетное. (Обратная функция not odd(a))
Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>
C++:
#include <iostream> //магия
using namespace std; //магия
int main() //тело программы
{
int a,b; //те числа(объявление переменных)
cin>>a; //ввод первого числа
cin>>b; //ввод второго числа
cout<<((int)(a/b))<<endl; //(int)х - преобразовать х в целое число(отбросить дробную //часть)
//cout<< - вывод
//endl - переход на следующию строчку
system("PAUSE"); //чтобы программа сразу не завершалась
return 0;
}
// // - коментарий
368+36008+3600008+360000008 = 363636392 (В десятеричной)
363636392 = 15АСА6А8 (в шестнадцатеричной)
15АСА6А8 = 1
5
6
8
А
А
А
<span>С в порядке возростания</span>
Автозаполнение - функция, позволяющая заполнять ячейки данными на основе шаблона или данных в других ячейках (т.е. однотипными данными).