Program z1;
var x, y : integer;
begin
x:=3;
y:=5*x + 6;
write (y);
end.
Program output;
Var a:integer;
begin
writeln('Сколько вам лет?');
readln(a);
writeln('В возрасте ',a,' лет, по статистике, жизнь преподносит сюрпризы');
end.
Проверь и отпиши
using System;
class Program
{
static void Main() {
string s=Console.ReadLine(),dic="abcdefghijklmnopqrstuvwxyz";
int k=0;
for(int i=0;i<dic.Length;i++)
{
for(int j=0;j<s.Length;j++)
if(s[j]==dic[i])
k++;
if(k!=0)
{
Console.WriteLine(dic[i].ToString()+" "+k.ToString());
k=0;
}
}
}
}
Program gt;
var a:array[1..1000]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
write(a[i],' ');
if( i mod 4=0)then writeln;
end;
end.
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
Writeln(Range(15,22).Average)
end.
Результат
18.5