Var K,n:integer;
S:real;
Begin
n:=0;
Write('K = ');ReadLn(K);
For K:= 1 to K do
Begin
Write((12*K-21)/3,' ');
if (12*K-21)/3 > 0 then
Begin
S:=S+(12*K-21)/3;
n:=n+1
End;
End;
WriteLn;
Write('Sr = ',S/n)
End.
program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if (a mod 8 = 0) and (a mod 10 = 6)
then sum+= a;
until a = 0;
writeln('Сумма: ',sum);
end.
<h3><u>PascalABC 3.4.2</u></h3>
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите строку: ");
string str = Console.ReadLine();// строка
Console.WriteLine("Введите подстроку: ");
string podstr = Console.ReadLine();//подстрока
var temp = str.Split().Where(i => i.Contains(podstr));
Console.WriteLine("Слова содержащие подстроку:");
foreach (var word in temp)
Console.Write(word + " ");
Console.ReadLine();
}
}
}
Логика<span> – </span>это<span> и процесс мышления, которому свойственна закономерность, последовательность, доказательность, умение видеть и понимать причинно- следственную связь между предметами и явлениями.</span>
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=18;
var dna:=ArrRandom(n,-5,15); dna.Println; // заполнение и вывод массива
Writeln('Кол-во положительных равно ',dna.Where(t->t>0).Count)
end.
<u>Пример</u>
-3 3 -5 2 6 11 1 8 -4 -3 13 -2 5 -3 2 -5 4 7
Кол-во положительных равно 11
