1
1. Ввод числа n с клавиатуры(пользователем)
2. Переменная res принимает значение 'NO'
3. Переменная a1 принимает значение 0
4. Переменная а2 принимает значение 0
5. Пока n больше 0 выполнять цикл:
6. Переменная a1 принимает значение остатка от деления введенного числа на 10
7. Переменная а2 принимает значение остатка от целочисленного деления введенного числа на 1(пример целочисленного деления: 12 // 5 = 2)
8. Если переменная а1 равна переменной а2, то выполнить условие
9. Переменная res принимает значение 'YES'
10. Введенное число нацело делится на 10.
11. Вывести переменную res
2
1. Ввод числа n с клавиатуры
2. Переменная res принимает значение 'NO'
3. Переменной d1 присваивается значение 0
4. Переменной d2 присваивается значение 0
5. Пока введенное число больше 0 выполнять цикл:
6. Переменная d1 принимает значение остатка от деления введенного числа на 10
7. Переменная m принимает целочисленное деление переменной d2 на 10
8. Пока переменная m больше 0 выполнять цикл:
9. Переменной d2 присвоить значение остатка от деления m на 10
10. Если переменная d1 равна переменной d2, то выполнить условие:
11. Переменной res присвоить значение 'YES'
12. Присвоить переменной m значение целочисленного деления m на 10
13. Присвоить переменной n результат целочисленного деления n на 10
14. Вывести переменную res
Вроде ничего не упустил.
Типа такого
using System;
using System.IO;
using System.Windows.Forms;
...
[STAThread]
static void Main() {...}
...
Func ( )
{
using (OpenFileDialog dlg = new OpenFileDialog())
{
dlg.ShowDialog();
var file = new StreamReader(dlg.OpenFile()).ReadToEnd();
int CtNum = 0, CtRus = 0;
for (int i = 0; i < file.Length; i++)
if (file[i] >= 'А' && file[i] <= 'я') CtRus++;
else if (file[i] >= '0' && file[i] <= '9') CtNum++;
Console.WriteLine(
CtNum>CtRus? "More nums" : CtNum<CtRus? "More Rus letters" :
"Equal number of Rus letters and nums");
}
}
var
a: 1000..9999;
a1, a2, a3, a4: 0..9; //Цифры четырехзначного числа
begin
writeln('Введите четырехзначное число');
readln(a);
a1:= a div 1000;
a2:= (a mod 1000) div 100;
a3:= (a mod 100) div 10;
a4:= a mod 10;
if (a1 + a2 + a3 + a4) mod 3 = 0 then writeln(a, ' делится на 3')
else writeln(a, ' не делится на 3');
end.