//Pascal ABC.NET v3.0 сборка 1111
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
<span>end.
Пример ввода:
45
34
56
67
<span>-2
Пример вывода:
123</span></span>
<span>Устро́йства вво́да — периферийное оборудование, предназначенное для ввода данных или сигналов в компьютер или в другое электронное устройство во время его работы
</span>Устройства вывода<span> - это </span>устройства<span>, которые переводят </span>информацию<span> с машинного языка в формы, доступные для человеческого восприятия. Различают алфавитно-цифровые и графические мониторы, а также монохромные мониторы и мониторы цветного изображения - активно-матричные и пассивно-матричные жкм.
</span>
<span>Жесткий диск, или винчестер, — основные устройства хранения информации в компьютере. Современные жесткие диски отличаются высокими показателями емкости (сотни н даже тысячи гигабайт), скорости и надежности, а также не очень высокой стоимостью.
</span>оперативной памяти находится и место для хранения промежуточных данных, формируемых в процессе обработки информации<span>. Таким образом, процессор как получает данные из оперативной памяти, так и записывает обработанные данные в оперативную память.</span><span>
</span>
Using System;
// Написать программу, выводящую на экран таблицу квадратов
// четных чисел от 0 до 10 в убывающем порядке: 100, 81, 49...
// Составь блок-схему алгоритма, и напиши программу которая
// выводит на экране узор, состоящий из звездочек. Должно быть 20 строчек со звездочками так, чтобы в каждой последующей строке было на одну звездочку больше. Для вывода на экран строки, со- держащей N звездочек, используй команды
// String repeatedString = new String('*', N); Console.Write (repeatedString);
// Microsoft visual studio c#
namespace NoNamespace {
internal class Program {
private static void Main() {
SquaresOfNumbersDesc();
Stars(20, 10);
Console.ReadLine();
}
private static void SquaresOfNumbersDesc() {
Console.WriteLine();
for (var i = 10; i >= 0; i = i - 2) {
Console.Write("{0} ", i * i);
}
Console.WriteLine();
}
private static void Stars(int n, int start_stars) {
Console.WriteLine();
for (var i = 0; i < n; i++) {
Console.WriteLine(new String('*', start_stars + i));
}
Console.WriteLine();
}
}
}
Старый друг лучше двух новых
//PascalABC.Net 3.1.0.1200
begin
var n := ReadInteger(' n =');
writeln(n div 10 mod 10);
end.
