Розв'язування задач з програмування
|
|
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.
Что у трезвого на уме, то у учителя информатики – на языке Паскаль.
|
|
| |