Program qwerty;
var a, b, P, S: real;
begin
writeln ('Нахождение периметра и площади прямоугольника');
write ('Введите значение первой стороны прямоугольника: ');
read (a);
write ('Введите значение второй стороны прямоугольника: ');
read (b);
P:=2*(a+b);
S:=a*b;
writeln ('Ответ: периметр = ', P:7:2, ', площадь = ', S:7:2,'.');
<span>end.</span>
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
В фразе "<span>Семь раз отмерь, один раз отрежь!" 33 символа.
33*16 = 528 бит или 66 байт
</span>
У if'ов небыло begin и end;
у значений массива n небыли проставленны ' ' одинарные кавычки для букв.
у b и v в условиях не те типы данных, поэтому немогут они внутрь себя вместить букву, а только цифры, исправил с integer на char.
не знаю что должна выводить программка, begin и end'ов нету и у циклов. Без begin и end'ов трудно мне просчитать что выведет программа.
Program shifer;var z,a,m,s,j,x:integer;b,v:char;k:array[1..100] of char;n:array[1..100] of char;BEGINn[1]:='а';n[2]:='б';n[3]:='в';n[4]:='г';n[5]:='д';n[6]:='е';n[7]:='ё';n[8]:='ж';n[9]:='з';n[10]:='и';n[11]:='й';n[12]:='к';n[13]:='л';n[14]:='м';n[15]:='н';n[16]:='о';n[17]:='п';n[18]:='р';n[19]:='с';n[20]:='т';n[21]:='у';n[22]:='ф';n[23]:='х';n[24]:='ц';n[25]:='ч';n[26]:='ш';n[27]:='щ';n[28]:='ъ';n[29]:='ы';n[30]:='ь';n[31]:='э';n[32]:='ю';n[33]:='я';n[34]:='а';n[35]:='б';n[36]:='в';readln(a);for m:=1 to a do readln(b); for j:=1 to 33 do x:=0; if b=n[1+x] then begin v:=n[1+x+3]; z:=0; k[1+z]:=v; z:=z+1; end else begin x:=x+1; end; writeln(k);END.