Skip to content

Instantly share code, notes, and snippets.

View Kanol's full-sized avatar

Andrey Karmanov Kanol

6 followers · 0 following
View GitHub Profile
@Kanol
Kanol / gist:f93cd23661c5386a0a88
Created March 1, 2015 14:12
program n1;
var a:Integer;
begin
Readln(a);
if a>0 then begin
if a mod 2 = 0 then
writeln('Число положительное и четное')
else
writeln('Число положительное и нечетное');
end
@Kanol
Kanol / Hometask.cs
Created March 6, 2015 10:52
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace Сумма_N_чисел
{
class Program
{
@Kanol
Kanol / HomeTask.cs
Created March 7, 2015 09:30
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace Бетмен_против_ниндзя
{
class Program
{
@Kanol
Kanol / Среднее арифметическое.cs
Created March 28, 2015 12:12
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace Среднее_арифметическое
{
class Program
{
@Kanol
Kanol / Сумма квадратов
Created April 9, 2015 17:42
program n1;
var a, square, sum:integer;
begin
Readln(a);
while a>0 do begin
square:= a*a;
sum:= sum+square;
a:=a-1;
end;
writeln(sum);
@Kanol
Kanol / Сумма квадратов 2
Created April 12, 2015 15:45
program n1;
var a, square, sum, i:integer;
begin
Readln(a);
for i:=1 to a do begin
square:= a*a;
sum:= sum+square;
a:=a-1;
end;
writeln(sum);
@Kanol
Kanol / Девушка(М).cs
Created May 2, 2015 15:40
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication2
@Kanol
Kanol / Девушка(Д).cs
Created May 2, 2015 15:41
namespace WindowsFormsApplication2
{
partial class Form1
{
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.IContainer components = null;
/// <summary>
@Kanol
Kanol / Пароль на гребанном паскале
Created May 17, 2015 18:04
Program n1;
var a:string; i:integer;
begin
writeln('Введите пароль');
while i<5 do begin
readln(a);
if a = 'password' then begin
writeln('Пароль верен!');
i:=5
end
@Kanol
Kanol / Переводчик(Д).cs
Created October 3, 2015 12:38
<Window x:Class="Переводчик.MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Height="350" Width="525">
<Grid>
<TextBox x:Name="Exit" HorizontalAlignment="Left" Height="103" Margin="10,198,0,0" TextWrapping="Wrap" VerticalAlignment="Top" Width="487"/>
<TextBox x:Name="Enter" HorizontalAlignment="Left" Height="103" Margin="10,21,0,0" TextWrapping="Wrap" VerticalAlignment="Top" Width="487" TextChanged="Enter_TextChanged"/>
</Grid>
</Window>