War a, b, x:real
begin
write(a,b)
if (a>b) then x:=a*b
else x:=a-b
println(x)
end
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<span>Program skazka;
Uses crt;
const n:string= 'nalevo';
a:string= 'napravo';
v:string= 'vpered';
Var p:string;
begin
clrscr;
writeln (' Kyda poidet geroi? nalevo,napravo ili vpered?');
readln (p);
if p=n then writeln ('Nalevo poidet - kon9 poter9et ');
if p=a then writeln ('Napravo poidet - cam propadet ');
if p=v then writeln ('Vpered poidet - nevesty naidet ');
Readln
end<span>.</span></span></span>
1) Номера букв
с начала алфавита - 16,5,20,25,17
с конца алфавита - 18,29,14,9, 17
Сумма номеров для каждой буквы 34.
в - 3+31, ц -24+10. И это для любой буквы
2) игра в города
Волгодонск, Калуга
1 слайд-это 1 магабайт, для 10 слайдов нужно 10 мег.
информационные: физическая карта, схема метро
физические: глобус, манекен, муляж яблока