Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a<0 then k:=k+1;
end;
write(k);
end.
Если A, B имеют общий делитель d, то и A + B делится на d. Отсюда идея: найдем наибольший делитель N, меньший N, и представим всё в виде d + (N - d). d будем искать так: найдём наименьший делитель q, не равный 1 (если число составное, он не больше корня из N), тогда d = N/q.
var
q, d, n: longint;
isfound: boolean;
begin
readln(n);
isfound := false;
for q := 2 to trunc(sqrt(n)) + 1 do
if n mod q = 0 then
begin
d := n div q;
write(d, ' ', n - d);
isfound := true;
break;
end;
if not isfound then
write(1, ' ', n - 1);
end.
Скорее всего в оперативной памяти. Процессор после обратотки информации отправляет её именно туда а позже, когда она уже проработала её можно сохранить в ПЗУ.
3) При составлении алгоритмов используют величины целого, вещественного, логического, символьного и литерного типов.
4) 2010 - целочисленный
14.48 – вещественный
'Да' – символьный
FALSE - логический
'142' – символьный
1,4 • 105 - вещественный
123Е-2 – может быть, как вещественным, целочисленным или символьным.
5) а) вес человека - вещественный
б) марка автомобиля - символьный
в) год вашего рождения - символьный
г) площадь фигуры - вещественный
д) название месяца года - символьный
е) количество мест в самолете - целый
Целевой яп - C#. Реализован ввод с клавиатуры и проверка на корретность ввода. Пример работы программы приведен на рисунке 1. Код ниже.
using System;
namespace FindPairs
{
class Program
{
static void Main(string[] args)
{
Console.Write("Введите трехзначное число: ");
string input = Console.ReadLine();
int number = 0;
if(input.Length != 3 || !int.TryParse(input, out number))
{
Console.WriteLine("Неверный ввод. Экстренное завершение!");
return;
}
Console.WriteLine("Число, полученное при перестановке первой и второй цифры: {1}{0}{2}", input[0],input[1],input[2]);
}
}
}