Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!! СРОЧНО!!! ДАЮ МАКС БАЛЛОВ.

Практическая работа №3.

Тема: "Строковые и логические величины в языке Pascal»".

Цель: научиться работать со строковыми и логическими величинами в программе.

Ход работы:

Задание 1. Составить программу, определяющую длину введенного вами слова.

1. Откройте среду программирования Pascal.

2. Введите программу:

program dlina;

uses crt;

var s: string; t:integer;

begin

clrscr;

writeln (‘Введите произвольное слово’);

readln (s);

t:=length(s);

writeln (‘длина слова равна’,t);

readkey;

end.

3. Проверьте программу на наличие ошибок и запустите на выполнение.

Задание 2. Составить программу, определяющую истинность высказывания "Число n является четным"

program chetn;

uses crt;

var n: integer; a: boolean;

begin

clrscr;

write ('Введите исходное число');

readln (n);

a:=n mod 2=0;

writeln ('Число ', n,' является четным - ', a);

readkey;

end.

Самостоятельная работа

1. Склеить 2 произвольно введенных слова.