Ответ:
__________________________________________________________
В любой системе счисления число 10 равно основанию этой системы счисления.
Поэтому 10(2)+10(8)+10(10)+10(16)=2+8+10+16=36(10)
<u>В состав алфавита языка Паскаль входит:</u>
Символы для составления переменных-
<em>латинские(строчные, прописные)</em>
<em> символ "_"</em>
<em> цифры (0..9)</em>
<span>Символы разделители (пробельные символы)
Составные символы - <span><em>особенная группа символов, которая </em>
<em> воспринимаются компилятором как </em>
<em> один</em></span><em> символ "<="</em></span><em>, ":=",">=", "..", "//" "<>" "(*" "*)"</em>
Зарезервированные слова- <span><em>слова, несущие определенное </em>
<em> смысловое значение для компилятора</em>
Спец-символы- <em>символы, которые предназначены для построения </em>
<em> конструкций языка, в Паскале это:
</em><em> ' - + / * : ; = { } [ ] ( ) $ и т.п</em></span><span>
<u>На самом деле их больше, но это основные.</u></span>
Program spusku;
uses crt;
type
spusok=^elem;
elem=record
data:integer;
next:spusok;
end;
var i:spusok;
procedure add(var current:spusok; elem:integer);
var x:spisok;
begin
new(x);
x^.data:=elem;
x^.next:=nil;
current^.next:=x;
current:=x;
end;
procedure stvor(var i:spusok);
var p:spisok; n:integer;
begin
i:=nil;
writeln('Vvedite spusok celux 4usel. 0-konec');
readln(n);
add(i,n);
readln(n);
while n<>0 do
begin
p:=i;
while p^.next<>nil do
p:=p^.next;
add(p,n);
readln(n);
end;
end;
procedure minmax(var i:spusok);
var p:spusok; kmin, kmax:integer;
begin
kmin:=1000000;
kmax:=0;
while i<>nil do
begin
p:=i;
if p^.data>kmax then kmax:=p^.data;
if p^.data<kmin then kmin:=p^.data;
i:=i^.next;
end;
writeln('raznost =', kmax-kmin)
end;
BEGIN
clrscr;
stvor(i);
minmax(i);
readkey;
end.
1)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
char s[20];
cout << "What is your name: ";
cin >> s;
cout << "Hello, " << s << endl;
return 0;
}
2)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strlen;
int main()
{
char s[100];
cout << "Enter the string: ";
cin.getline(s, 100);
for(int i = strlen(s) - 1; i >= 0; i--)
{
cout << s[i];
}
cout << endl;
return 0;
}
3)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strlen;
int main()
{
char s[20];
bool x = true;
cout << "Enter the word: ";
cin.getline(s, 100);
for(int i = 0, j = strlen(s) - 1; i <= j; i++, j--)
{
if(s[i] != s[j])
{
x = false;
break;
}
}
if(x)
{
cout << "Palindrome" << endl;
}
else
cout << "Not palindrome" << endl;
return 0;
}
4)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strlen;
int main()
{
char s[100];
char n;
cout << "Enter the string: ";
cin.getline(s, 100);
for(int i = 0; i < strlen(s); i++)
{
if(s[i] == 'a')
{
n = 'a';
break;
}
else if(s[i] == 'o')
{
n = 'o';
break;
}
}
if(n == 'a')
{
cout << "\nThe first letter of A" << endl;
}
else if(n == 'o')
{
cout << "\nThe first letter of O" << endl;
}
else
cout << "These letters are not available" << endl;
return 0;
}
