Коды символов из таблицы ASCII?
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
int code;
cout << "Enter the numeric code: ";
cin >> code;
cout << char(code) << ' ' << char(code + 1) << endl;
return 0;
}
По закону Ома для участка цепи
<u>PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</u><u>Внимание! Если программа не работает, обновите версию!</u>begin
var U:=ReadReal('U=');
var (r1,r2):=ReadReal2('R1,R2=');
Writeln('I=',U/(r1+r2))
end.
<u>Пример</u>U= 12
R1,R2= 10 6.5
I=0.727272727272727
1. если слово из 2-х букв
var a,b:char;
begin
readln(a,b);
writeln(a,b);
writeln(b,a);
writeln(a,a);
writeln(b,b);
end.
2, если не из двух букв
тут сначала вводится n - максимальная длина слова, а уже потом 2 буквы
var a,b:char;
n:integer;
procedure gen(i:integer;s:string);
begin
if i>n then exit;
if i<>0 then writeln(s);
gen(i+1,s+a);
gen(i+1,s+b);
end;
begin
readln(n);
readln(a,b);
gen(0,'');
end.
S=165 i=10..........................................
Программа для среды программирования Кумир:
использовать Робот
алг
нач
лог прав=да
цел x=0, y=0
нц
если (mod(div(y,2),2)=0) = (mod(x,2)=0) то закрасить все
выбор
при прав и справа свободно: вправо; x:=x+1
при не прав и слева свободно: влево; x:=x-1
при сверху свободно: вверх; прав:=не прав; y:=y+1
иначе выход
все
кц
кон