1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
Вирус —
Басқа программалар мен файлдарға өз көшірмесін автоматты түрде кірістіре отырып, файлдарды «бүлдіретін» компьютерлік шағын бағдарлама (1—2 Кб) немесе макрос. Зақымданған мәліметтерді жедел жадқа жүктеуде онда орналасқан басқа файлдарға өтіп, оларға да зақым келтіре алады. Вирустардың мәлімет түтастығын жоятын көптеген қауіпті қосымша әсерлері бар, олар — қатқыл дискінің қүрылымдық бөлімдерін (бөлімдердің түпкі кестесін бұзу арқылы) бүлдіреді, қатқыл дискіні қайта пішімдеп жібереді, файлдарды өшіріп тастайды немесе құрамын өзгертіп жібереді және т.б.;
using System;
namespace NoNamespace.Task029 {
//Напишите консольное приложение на C#, находящее пару чисел меньше N,
//сумма цифр которых одинакова, и сообщающее, если таких чисел нет
internal class Program {
private static void Main() {
Console.WriteLine("Введите N");
var n = int.Parse(Console.ReadLine());
var sums = new int[n];
sums[0] = 1;
for (var i = 1; i < n; i++) {
sums[i] = NumberSum(i);
}
var found = false;
for (var i = 1; i < n; i++) {
if (sums[i] == 0) continue;
for (var j = i + 1; j < n; j++) {
if (sums[i] != sums[j]) continue;
Console.WriteLine($"Number sum {i} and {j} = {sums[i]}");
found = true;
}
}
if (!found)
Console.WriteLine("Nothing found");
Console.ReadKey();
}
private static int NumberSum(int number) {
var sum = 0;
while (number > 0) {
sum += number % 10;
number = number / 10;
}
return sum;
}
}
}