Begin
var N,X: string;
var K,Y: integer;
var M: longint;
writeln ('Как тебя зовут? ');
readln(N);
writeln ('Введи номер класса в котором ты учишься. ');
readln(K); Y:=2016+1+11-K;
writeln (N,' закончишь школу в ',Y,' году. Верно? да/нет. ');
read(X);
if X='да'
then writeln ('Ай да я! Ай да молодец!')
else
if X = 'нет'
then writeln ('Ой! Неужели ошиблась?!')
else writeln ('Хм! Вечный школьник?!');
end.
1. Если имеется в виду язык Pascal, то получим следующее:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
readln(a);
b:=a+a;
writeln (b);
end.
Program50.pas(5) : Неизвестное имя 'b'
2. Попробуем такой вариант на Python
<span>a =int(input())
b = a+a
print(b)</span>
При вводе а получим на выходе 10
Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с помощью служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
readln(a);
var b:=a+a;
writeln (b);
end.
Рузультат при введенном значении 5 равен 10
Монетку можно определить за 2 взвешивания.
1.
Делим на 3 группы по 3 штуки в каждой
2.
Взвешиваем 1 и 2 группу. Если они одинаковы, то фальшивая в
3 группе. Если одна из них легче, то фальшивая группа та, что легче.
3.
Взвешиваем 1 и 2 монетку в группе с фальшивой монеткой.
4.
<span>Если монетки одинаковы, то фальшивая 3, иначе фальшивая та,
что легче.
</span><span>
</span>
Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..