Числовая кодированный текст
текстовая рассказ
графическая карта
звуковая музыка
видеоинформация фильм
using System;
namespace ConsoleApp3
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите N и K");
int N = Int32.Parse(Console.ReadLine());
int K = Int32.Parse(Console.ReadLine());
int H = 0;
int ost = 0;
do
{
N -= K;
H+=1;
} while (N >= K);
ost = N;
Console.WriteLine(H + " целых частей");
Console.WriteLine(ost + " остаток");
}
}
}
1)
Ввод чисел в массив:
program vvod_mass;
var
a: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
write('a[', i, ']='); readln(a[i]);
end;
end.
2)
program otric;
var
a: array[1..10] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 10 do if a[i]<0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
3)
program chetniy;
var
a: array[1..8] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
1)?
2)Поле имён,ряд формул,текущая клетка
//на каком-то старье
var
i: byte;
s: string;
begin
read (s);
for i:=1 to length (s) do if upcase(s[i])='А' then s[i]:='о';
write (s);
end.
