Var a:string; i,k:integer; b:char; begin writeln('Введите строку: '); readln(a); k:=length(a); for i:=1 to round(k/2) do begin b:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=b; end; writeln; writeln('Итоговая строка: '); writeln(a:7); end.
#include <iostream> #include <cstdlib> #include <vector> using namespace std;
int main() { vector<int> v; cout <<"Укажите размер массива: "; int s; cin >>s; srand(time(0)); for(int i=0; i!=s; ++i) v.push_back(rand()%100); int find; cout <<"Введите число для поиска: "; cin >>find; bool founded = false; for(auto it=v.begin(); it!=v.end(); ++it) if(*it==find) founded=true; if(founded) cout <<"Это число есть в массиве!" <<endl; else cout <<"Такого числа нет в мвссиве!" <<endl;
1. Если имеется в виду язык Pascal, то получим следующее: var: a; //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin readln(a); b:=a+a; writeln (b); end.
Program50.pas(5) : Неизвестное имя 'b'
2. Попробуем такой вариант на Python
a =int(input()) b = a+a print(b)
При вводе а получим на выходе 10
Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:
var: a; //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin readln(a); var b:=a+a; writeln (b); end.
i,k:integer;
b:char;
begin
writeln('Введите строку: ');
readln(a);
k:=length(a);
for i:=1 to round(k/2) do
begin
b:=a[i];
a[i]:=a[k-i+1];
a[k-i+1]:=b;
end;
writeln;
writeln('Итоговая строка: ');
writeln(a:7);
end.