Var a,b,c,d,e:integer; begin writeln ('введите первую переменную '); readln (a); writeln ('ведите вторую переменную '); readln (b); writeln ('введите значение *c* '); readln (c); d:=b; e:=c; writeln ('присвоил значнеию B значение С ', e); writeln ('присвоил значению А значение B ', d); end. Ну это тоже так...лениво без особого воображения. Я не знаю на сколько вам подойдет и правильно ли я вас понял
Uses crt;var ADR:array[1..10] of string; sub:array[1..10] of string; i,k:integer; s:string; begin; for i:=1 to 10 do begin; writeln('Input town of ',i,'student'); readln(s); ADR[i]:=ADR[i]+s+' '; writeln('Input street of ',i,'student'); readln(s); ADR[i]:=ADR[i]+s+' '; writeln('Input house of ',i,'student'); readln(s); ADR[i]:=ADR[i]+s+' '; writeln('Input apartament of ',i,'student'); readln(s); ADR[i]:=ADR[i]+s; if pos('Краснодар',ADR[i])<>0 then begin; inc(k); sub[k]:=ADR[i]; end; end; TextColor(4); writeln('Result:'); for i:=1 to k do writeln(sub[i]); end.
PascalABC.NET beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.
begin
writeln ('введите первую переменную ');
readln (a);
writeln ('ведите вторую переменную ');
readln (b);
writeln ('введите значение *c* ');
readln (c);
d:=b;
e:=c;
writeln ('присвоил значнеию B значение С ', e);
writeln ('присвоил значению А значение B ', d);
end.
Ну это тоже так...лениво без особого воображения. Я не знаю на сколько вам подойдет и правильно ли я вас понял