program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)
15,8 МБ / 1024 = 0,02 ГБ
1,27 + 1,16 + 0,02 = 2,45 ГБ - занято
2,45 *100 / 64 = 3,8%
заполнено на 3,8%
Если q=p, то оба указателя ссылаются на одно и то же место в памяти, т.е. значения p^ и q^ всегда будут одинаковы.
После p^=5 оба указателя будут ссылаться на 5.
<span>q^:=p^+1 приведет к тому, что cсылка будет на 6, поэтому в первом if условие ложно и выполняется ветка else и оба указателя будут ссылаться на 10.
Во втором if условие истинно, поэтому выполняется ветка then. В ней присваивание </span><span>p:=q ничего не меняет, поскольку оба указателя и так уже указывают на одно и то же место в памяти</span>. А после <span>q^:=20 в это место будет записана константа 20, поэтому при выводе p^ мы получаем значение 20.
<em>Ответ: 20</em></span>
Ответ:
program Hello;
var a,k:string;
var i:integer;
begin
read(a);
for i:=0 to length(a) do begin
k := k+a[length(a)-i];
end;
write(k);
end.
Объяснение:
заводим две переменных типа string(строковой тип данных)
а и к
и еще не забудем счетчик для цикла i
строковой тип данных это массив из символов,то есть мы можем извлекать из него элементы с помощью цикла
объявим цикл for от 0 до длины нашей строки,которую возвращает функция length() и с помощью конкатенации(сложения строк,например: 'a'+'b'= 'ab) добавляем к новой строке "к" элемент length()-i строки а.
