Uses
System;
var
d1, d2: DateTime;
s: string;
begin
Write('Введите дату в формате ДД.ММ.ГГГГ: ');
Readln(s);
d1 := DateTime.Parse(s); { получили дату }
d2 := d1.AddDays(-1);
Writeln('Предыдущий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
d2 := d1.AddDays(1);
Writeln('Следующий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
end.
<u>Тестовое решение:</u>
Введите дату в формате ДД.ММ.ГГГГ: 31.12.2014
Предыдущий день: 30.12.2014
Следующий день: 1.1.2015
Получше сфотографируй, не видно
а)
var
p,d,h:real;
begin
readln(h);
p:=1200*9.8*h;
writeln(p);
end.
б)
var
m,h,r:real;
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k:integer;
m,h,r,S:real;
begin
readln(k);
S:=0;
for i:=1 to k do
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
S:=S+m;
end;
writeln(S);
end.
Большая скорость = 131072 бит/с
Меньшая скорость = 65536 бит/с
Полный объем = 67108864 бит
Начальный объем = 8388608 бит
Время скачивания начального объема = 8388608 / 131072 = 64.0 c
Время скачивания полного объема = 67108864 / 65536 = 1024.0 c
Общее время = 64.0 + 1024.0 = 1088.0 c = 18.133333333333333 минут
13
For i:=2 to 5 do begin
if min > a[i] then
min:=a[i];
end;
write(min);
14
program p1;
uses crt;
var a:array [1..20] of integer;
i,k,s:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
If a[i] mod 2 = 0 then
K:=K+1;
s:=s+a[i];
end;
write(k,' ',s);
end.
15
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,n:integer;
begin
read(n);
writeln;
for i:=1 to 10 do begin
read(a[i]);
s:=s+a[i];
If a[i] = N then
K:=K+1;
end;
write(k,' ',s);
end.
