Var
x:integer;
begin
writeln('Введите температуру воды:');
readln(x);
case x of
-193..0:writeln('Агрегатное состояние: твердое');
1..99: writeln('Агрегатное состояние: жидкое');
else writeln('Агрегатное состояние: газообразное');
end;
end.
Чтобы в ячейке получилось значение (некоторой величины), в ней ДОЛЖНА быть формула.
Другое дело, что "вводить в каждую" не надо: записать формулу в угловой ячейке (d4) "=c4*d3", затем скопировать её на всю таблицу
Using System;
class Program
{
static void Main(string[] args)
{
int N = int.Parse(Console.ReadLine());
double sum = 0;
for (int i = 1; i <= N; i++)
sum += 1.0 / i;
Console.WriteLine(sum);
}
<span>}</span>
Var
n, k, i, imax, j: integer;
a: array[1..100]of integer;
begin
randomize;
n := random(30) + 10;
for i := 1 to n do
begin
a[i] := Random(30);
write(a[i], ' ');
end;
writeln();
{сортировочка}
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
k := a[i];
a[i] := a[imax];
a[imax] := k;
end;
for i := 1 to n do
write(a[i], ' ');
k := 0;
for i := 2 to n - 1 do
if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
k := k + 1;
if a[1] <> a[2] then k := k + 1;
if a[n] <> a[n - 1] then k := k + 1;
writeln();
writeln('No doubles - ', k);
end.
Для упрощения работы пользователя в состав современных операционных систем, и в частности в состав Windows, входят программные модули, создающие графический пользовательский интерфейс. В операционных системах с графическим интерфейсом пользователь может вводить команды посредством мыши, тогда как в режиме командной строки необходимо вводить команды с помощью клавиатуры.
Графический интерфейс позволяет осуществлять взаимодействие человека с компьютером в форме диалога с использованием окон, меню и элементов управления (диалоговых панелей, кнопок и так далее).