//Pascal ABC.NET Версия 2.2 Сборка 790
var s,s1,s2:string;
begin;
while s<>'.' do
begin;
readln(s);
s1:=s1+s;
end;
s2:=chr(39); //chr(39)='
if (pos('O',s1)<>0) and (pos(s2,s1)<>0) and (pos('k',s1)<>0) then writeln('Yes') else writeln('No');
<span>end.</span>
#include "iostream"
#include "stdlib.h"
#include "locale.h"
using namespace std;
int main(){
setlocale(LC_ALL,"rus");
int a, b;
cout << "Введите число a: "; cin >> a;
cout << "Введите число b: "; cin >> b;
if(b != 0){
cout << "Частное: " << a/b << endl;
}else cout <<"Ошибка! Деление на 0!" << endl;
system("pause");
return 0;
}
На одно число отведено 5 бит
всего чисел 2^5=32 => K=32
Вообще тут не обязательно всё расписывать, достаточно сделать как-нибудь так:
read (a); // последняя цифра
write ((a * a) mod 10);
но если надо расписывать, то:
совершенно так же как у вас, только не от 1 до 7, а от 0 до 9 и вместо понедельник - воскресенье писать последнюю цифру
0 - 0
1 - 1
2 - 4
3 - 9
4 - 6
5 - 5
6 - 6
7 - 9
8 - 4
9 - 1
И!!! НИКОГДА НЕ ИСПОЛЬЗУЙТЕ GOTO! Это яд.