1) 52186
Все четные разделили на 2, от нечетных отняли единицу:
41043
Удалили первую и последнюю цифры:
104
<span>Ответ: 104 (1)
2) </span>AYY1YABC55
Удалили символы YY и АBC
A1Y55
Поменяли символы A и Y местами:
Y1A55
<span>Ответ: Y1A55 (4)
3) </span>B265C42GC4
Заменяем С4 на F16
B265F162GF16
Удаляем трехзначные числа:
BFGF16
Ответ: BFGF16 (A)
Type ye=1850..2100;
var year, year1:ye;
name:string;
a:integer;
begin
writeln('Какой сейчас год?');
readln(year);
writeln('Твое имя?');
readln(name);
writeln('В каком году ты родился(родилась)?');
readln(year1);
a:=year-year1;
writeln('Твое имя ', name);
writeln('Ты прожил ', a, ' Лет(года)');
writeln('Ты прожил приблизительно ', a*365, ' дней');
writeln('Ты прожил приблизительно ', a*364*24, ' часов');
end.
<span>Вычислительные таблицы:
1 Программа Excel высчитывать данные в таблице
2 Базы данных, Eccess, 1C, и тд</span>
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
