program raf105;
var
sum: integer;
begin
for var i:=1 to 100 do
if i mod 2 = 0 then sum:= sum + i;
writeln('Вывод: ',sum);
end.
2.program raf105;
var
glas: string:= 'аяоёуюыиэе';
input: string;
glasCount: integer;
begin
write('Введите слово: ');
readln(input);
lowerCase(input);
for var i:= 1 to length(input) do
for var j:= 1 to length(glas) do
if input[i] = glas[j] then inc(glasCount);
writeln('Гласных букв: ',glasCount);
end.
3.program raf105;
var
count: integer;
begin
for var i:=1 to 500 do
if i mod 2 <> 0 then inc(count);
writeln('Вывод: ',count);
end.
PascalABCПоделитесь своими знаниями, ответьте на вопрос:
Определить частное и остаток от деления двух целых чисел N и M, используя операцию вычитания. C#
int N, M; // Делимое, делитель
int result = 0; // Частное
N = Int32.Parse(Console.ReadLine());
M = Int32.Parse(Console.ReadLine());
while(N >= M)
{
N -= M;
result++;
}
Console.WriteLine($"Частное: {result}, остаток: {N}");
Console.ReadKey();
Объяснение:
Считываем вводимые переменные N и M для делимого и частного соответственно, приводим их к целочисленному типу, т.к. вводимые данные имеют строковый тип.
С цикла мы вычитаем из делимого делитель и прибавляем в переменную result единицу столько раз, сколько M помещается в N. Результатом такого цикличного вычитания и будет остаток.
Выводим на экран наши переменные с интерполяции строки и ожидаем нажатие клавиши, иначе консоль закроется.