#:

Главная
Вика
Облако
- Скачать
- Закачать
Карта сайта

Главная
Файлы

Файлы

Рубрики

Веб-дизайн
- Основы XHTML
Видеокурсы
Всячина
Інформаційна безпека
Карантин
Компьютерная графика
Компьютерные сети
Олимпиады
Офис
- Базы данных
- Макросы
Программирование
Системное ПО
Устройство компьютера

// Морской бой
uses crt;
var w1,h1,w2,h2,x,i:integer;
begin
writeln('first ship');
readln(w1,h1);
writeln('second ship');
readln(w2,h2);
x:=0;
if w1 > h1 then for i:=1 to w1 do x:=x+3;
if w2 > h2 then for i:=1 to w2 do x:=x+3;
if h1 > w1 then for i:=1 to h1 do x:=x+5;
if h2 > w2 then for i:=1 to h2 do x:=x+5;
if w1 = h1 then x:=x+6;
if w2 = h2 then x:=x+6;
writeln(x);
readkey();
end.

Никита

2020.11.18 | #

// Наша Таня громко плачет
uses crt;
var k,A,B,n,x:integer;
begin
x:=0;
writeln('write N');
readln(n);
writeln('write K');
readln(k);
writeln('write A');
readln(A);
writeln('write B');
readln(B);
 while n > 1 do begin
 if (n mod k = 0) then n:=n div k
 else n:=n-1;
 if (n mod k = 0) then x:=x+B
 else x:=x+A;
 if B>A then x:=(x+A)*A;
 end;
writeln(x);
readkey();
end.

Никита

2020.10.05 | #

//Шарики
uses crt;
var r, g, b, N, i, k, k1, k2, x: integer;
r1,g1,b1:char;
str:string;
begin
k:=0;
k1:=0;
k2:=0;
r1:='r';
g1:='g';
b1:='b';
 readln(N);
 readln(str);
  for i:=1 to N do
   begin
    if str[i] = r1 then k:=k+1;
    if str[i] = g1 then k1:=k1+1;
    if str[i] = b1 then k2:=k2+1;
   end;
 if (k > k1) and (k > k2) then writeln(k);
 if (k1 > k) and (k1> k2) then writeln(k1);
 if (k2 > k) and (k2> k1) then writeln(k2);
readkey();
end.

Архивы

2020 (26)
2019 (2)
- Декабрь (2)
  - Олімпіада ІТ 2019
  - Олимпиада по информатике 2019
2018 (2)
- Декабрь (1)
  - Олимпиада по информатике 2018
- Октябрь (1)
  - Олимпиады для начинающих 01
2017 (1)
- Декабрь (1)
  - Олимпиада по информатике 2017
2016 (1)
- Декабрь (1)
  - Олимпиада по информатике 2016
2015 (16)
2014 (31)
2013 (27)
2012 (63)

Карантин
Видеокурсы
Компьютерная графика
Безопасность
Олимпиады
Офис
Программирование
Системное ПО
Устройство компьютера

Made with by tux, 2012-2020.