A)
var
ch1,ch2:char;
begin
readln(ch1,ch2);
writeln(ch1,'=',integer(ch1));
writeln(ch2,'=',integer(ch2));
end.
б)
var
a,b,c:char;
begin
readln(a,b,c);
writeln('Результат сцепления:',a+b+c);
end.
Компьютер- это устройство для обработки и хранения информации, в 20 веке изобрели.
#include "stdafx.h"#include <iostream>#include <windows.h>#include <ctime>using namespace std;int main(){ SetConsoleCP(1251); SetConsoleOutputCP(1251); srand(time(0)); int core[5][5]; int t, n; bool cf, p; for (int i = 0; i < 5; i++) { for (int j = 0; j < 5; j++) { t = 0 + rand() % 2; core[i][j] = 0 + rand() % 20; if (t == 1) { core[i][j] = -core[i][j]; } cout << " " << core[i][j] << " "; } cout << endl; } cout << endl; cout << "Последняя цифра " << endl; cin >> n; for (int i = 0; i < 5; i++) { for (int j = 0; j < 5; j++) { if (core[i][j] % 10 == n) { cf = true; } if (core[i][j] > 0) { p = true; } } } if (cf == true) { cout << "Число, оканчивающееся на цифру " << n << " есть"<< endl; } else { cout << "Числа, оканчивающегося на цифру " << n << " нет" << endl; } if (p == true) { cout << "Положительное число есть" << endl; } else { cout << "Положительных чисел нет " << endl; }}
//PascalABC.Net v3.1
var n:integer;
begin
readln(n);
if n mod 2 = 0 then n:=n*4 else n:=n+1;
writeln(n);
end.
Таблица с расчетом начальных шагов цикла - в прилагаемом файле.
Из таблицы видно, что начиная с 6-го шага цикла действия будут повторяться, следовательно конечное значение переменной с будет равно 20+95*3 = 305.