S, a - должны быть целочисленными, а не вещественными.
<span><u>Задача а)</u>
</span>// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
a,b:real;
procedure WriteAvg;
begin
Writeln('Среднее= ',(a+b)/2)
end;
begin
Write('a,b='); Read(a,b);
WriteAvg
end.
<u>Тестовое решение:</u>
a,b=6 4.9
Среднее= 5.45
<u>Задача б)</u>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var c:=ReadlnChar('Введите символ:');
if c in ['A'..'z','А'..'я','Ё','ё'] then Writeln('буква')
else
if c in ['0'..'9'] then Writeln('цифра')
else Writeln('спецзнак')
end.
<u>Тестовое решение:</u>
Введите символ: i
буква
#include <cmath>
#include <iostream>
#include <iomanip>
int main()
{
float
a,b,
z;
std::cin >> a >> b;
z = ((a-1)*sqrt(a) - (b-1)*sqrt(b))/
(sqrt(pow(a, 3) * b) + a*b + pow(a, 2) - a);
std::cout << "Значение выражения 1 = " << std::setprecision(3) << z << std::endl;
z = (sqrt(a) - sqrt(b))/
a;
//std::cin >> a >> b;если значения нужны другие.
std::cout << "Значение выражения 2 = " << std::setprecision(3) << z;
}
g++ compiler
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z
1 2 3 4 5 6 7 8 9 0
Специальные знаки (через пробелы):
~ ! @ # $ % ^ & * ( ) – + _ = [ ] ; : ‘ “ , . / \ < > ? |
Var
A,N:integer;
M:array[1..10001] of integer;
Begin
ReadLn(N,A);
if A mod 2<>0 then A:=A+1;
For N:= 1 to N do
Begin
M[N]:=A;
A:=A+2;
Write(M[N],' ')
End;
End.