|
Розв'язування задач з програмування
|
|
| vozl23 | Дата: Середа, 30.12.2015, 10.47.39 | Повідомлення # 151 |
|
Полковник
Група: Пользователи
Повідомлень: 27
Статус: Оффлайн
| Дякую
|
| |
| |
| Sirogka | Дата: Середа, 30.12.2015, 13.16.24 | Повідомлення # 152 |
 Суддя
Група: Друзі
Повідомлень: 135
Статус: Оффлайн
| Саша, олімпіада з програмування 30 січня в нашій школі І тур, а з інформаційних технологій - 20 лютого в Шепетівці І тур. Так, що до 7 січня треба розбомбити задачі і контрольні з перших 7 блоків (зараз готуйся до програмування, набивай руку на цих задачах). Завдання ІІІ туру минулорічні розберемо після 7 січня.
|
| |
| |
| vozl23 | Дата: Середа, 30.12.2015, 13.18.19 | Повідомлення # 153 |
|
Полковник
Група: Пользователи
Повідомлень: 27
Статус: Оффлайн
| я зобив 5 задач 3 блоку, а на решті застряг
|
| |
| |
| Sirogka | Дата: Середа, 30.12.2015, 15.06.00 | Повідомлення # 154 |
|
Суддя
Група: Друзі
Повідомлень: 135
Статус: Оффлайн
| Задача 7 (блок 3):
var n,i:longint;
begin
readln(n);
for i:=1 to n do
if n mod i = 0 then write(i,' ')
end.
В деяких використовуй вкладені цикли!!!
Что у трезвого на уме, то у учителя информатики – на языке Паскаль.
|
| |
| |
| vozl23 | Дата: Середа, 30.12.2015, 15.38.37 | Повідомлення # 155 |
|
Полковник
Група: Пользователи
Повідомлень: 27
Статус: Оффлайн
| її не приймає
|
| |
| |
| Sirogka | Дата: Середа, 30.12.2015, 15.41.29 | Повідомлення # 156 |
|
Суддя
Група: Друзі
Повідомлень: 135
Статус: Оффлайн
| Я тільки що здав її на 100 балів, може проблеми на сервері, таке буває, пробуй решту...
Что у трезвого на уме, то у учителя информатики – на языке Паскаль.
|
| |
| |
| vozl23 | Дата: Середа, 30.12.2015, 16.09.56 | Повідомлення # 157 |
|
Полковник
Група: Пользователи
Повідомлень: 27
Статус: Оффлайн
| Задача 4Задано двоцифрове число. Знайти частку від ділення першої цифри на другу. Якщо це зробити не можливо, то вивести NO.Examplesв мене цю не приймає.
var a,a1,a2:integer;a3:real;
begin
read(a);
a1:=trunc(a/10);
a2:=round(frac(a/10)*10);
a3:=a1/a2;
if a2=0 then write('NO')
else write(a3:0:0)
end.
|
| |
| |
| Sirogka | Дата: Четвер, 31.12.2015, 09.17.03 | Повідомлення # 158 |
|
Суддя
Група: Друзі
Повідомлень: 135
Статус: Оффлайн
| Із задачею F (3 блок) прийшлося повозитися (не проходили деякі тести через ліміт часу 1 сек). Що вийшло:
var n,i,a:longint;c:real;
begin
readln(n);
c:=sqrt(n);
if frac©=0.0 then c:=c-1 else c:=trunc©;
i:=1;
repeat
a:=i*i;
write(a,' ');
i:=i+1
until i>c
end.
Задача 4. (Вона напевно була на контрольній, я так розумію):
var a,a1,a2:byte;
begin
read(a);
a1:=a div 10; {перша цифра}
a2:=a mod 10; {друга цифра}
if a2=0 then write('NO')
else write(a1 div a2)
end.
Что у трезвого на уме, то у учителя информатики – на языке Паскаль.
|
| |
| |
| vozl23 | Дата: Четвер, 31.12.2015, 10.41.13 | Повідомлення # 159 |
|
Полковник
Група: Пользователи
Повідомлень: 27
Статус: Оффлайн
| я на другій контрольн не можу написати першу задачу
Задано натуральне чотиризначне число N. Визначити найбільшу цифру цього числа.
|
| |
| |
| Sirogka | Дата: Субота, 02.01.2016, 08.03.32 | Повідомлення # 160 |
|
Суддя
Група: Друзі
Повідомлень: 135
Статус: Оффлайн
| Задача1 контрольної роботи №2: (це мій варіант, розберись сам). Пиши, що не виходить у задачах блоку 3.
var n,a,b,c,d,rez1,rez2,rez:longint;
begin
readln(n);
a:=n div 1000;
b:=(n div 100) mod 10;
if a>=b then rez1:=a else rez1:=b;
c:=(n div 10) mod 10;
d:=n mod 10;
if c>=d then rez2:=c else rez2:=d;
if rez1>=rez2 then rez:=rez1 else rez:=rez2;
writeln(rez)
end.
Что у трезвого на уме, то у учителя информатики – на языке Паскаль.
|
| |
| |
